Este curso esta pensado para enseñar a programar en QuickBASIC 4.5 a quien así lo desee, si 
eres un programador de Pascal o C tal vez este curso te parezca aburrido. Tal vez tenga 
mentiras y/o errores, igual las ediciones anteriores, sin embargo mi intención es que les sea lo 
más útil posible. Quiero agradecer a www.lawebdelprogramador.com por poner a disposición de 
los internautas mi curso. Un cordial saludo y espero que lo disfruten. 
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Para crear un programa computacional es necesario conocer un lenguaje de programación, es 
decir, la herramienta que nos ayudará a mediar con los recursos de la computadora. A 
continuación vamos a hablar de algunos lenguajes de programación: 


Lenguaje ensamblador 
Este lenguaje nos permite crear programas para procesadores en particular. 


Lenguajes de alto nivel 

Al parecer los lenguajes de alto nivel se dividen en dos grupos: Compiladores e intérpretes. Al 
parecer, un interprete ejecuta las instrucciones del código fuente (el programa que nosotros 
escribimos) línea por línea; es decir nuestro programa no se ejecuta solo, sino que tiene que ser 
un programa reconocedor del lenguaje (intérprete) el que ejecute nuestro programa. Al 
parecer los compiladores, bajo MS-DOS, hacen lo siguiente: toman el código fuente, luego lo 
convierten en un código o programa objeto (compilación), que al parecer tiene una extensión 
obj, para después combinarlo con las librerías (a este proceso se le llama link o enlace) y 
formar finalmente el programa en código reconocible por la máquina o programa ejecutable 
(con extensión .exe). 


A Nota: Existen dos conceptos fundamentales al hablar de programación: Programación 
estructurada y programación orientada a objetos (POO). Al parecer, la programación 
estructurada como su nombre lo dice, nos permite tener en un programa subprogramas que 
hacen cada uno una determinada tarea para el programa en general. Al parecer la POO es un 
tipo de programación en la que un programa esta formado por conjuntos de datos y 
subprogramas llamados "objetos". 


Algunos de los lenguajes de alto nivel más difundidos son: 


FORTRAN: 


(FORmula TRANslator, Traductor de fórmulas) Al parecer es considerado como el primer 
lenguaje de alto nivel que se creó. Desarrollado allá por 1954, fue creado originalmente por 
IBM para ayudar a los ingenieros y científicos a trabajar con fórmulas matemáticas. 
Actualmente se enseña a estudiantes de ingeniería, y al parecer es utilizado por la NASA. 


C: 
(Llamado así por su predecesor, el lenguaje B) Al parecer fue desarrollado por Dennis Ritchie y 
Brian Kerninghan en los laboratorios ATAT en E.U, por ahí de 1974. 


C++: 


Es una versión orientada a objetos del lenguaje C, y al parecer fue creado en los 80's por 
Bjarne Strousptrup también en los laboratorios AT4T. 


Java: 


Al parecer fue creado a mediados de los 90's por la compañía Sun Microsystems basándose en 
el C++. Es un lenguaje de POO que corre en una "maquina virtual”, de la cual hay versiones para 
diferentes sistemas operativos. Por eso el lema de Java es "Write once, run everywhere" 
(Escribe una vez, corre dondequiera”). 


Pascal: 


(Al parecer, en honor al matemático francés Blaise Pascal) Al parecer fue creado por el 
profesor suizo Niklaus Wirth con el propósito de enseñar programación, allá por 1973. Aunque 
existen varias versiones del Pascal como TMT Pascal y Microsoft QuickPascal, al parecer el 
Pascal ganó popularidad gracias a Turbo Pascal, que fue un compilador lanzado al mercado por 
la compañía Borland International a principios de los 80's. Al parecer Turbo Pascal era un 
compilador que se lanzó al mercado como un experimento, pero resulto ser todo un éxito ya que 
era veloz, valía al parecer $ 49.99 (US) y trabajaba en sistemas IBM. Al parecer, 
posteriormente el Turbo Pascal se fue actualizando hasta llegar a la versión 7 que soportaba 
POO desde la versión 5.5. 


Breve historia del BASIC 


BASIC: (Acrónimo de Begginers All-purpouse Simbolic Instruction Code, Código de 
instrucciones simbólicas multiuso para principiantes) Al parecer, fue desarrollado por Tomas 
Kurtz y John Kemeny en Dartmouth College como un dialecto del Fortran para enseñar 
programación de una manera fácil a los que en ese tiempo (por ahí de 1964) se querían 
introducir al mundo de la informática. El BASIC es un lenguaje facil y es muy popular. Al 
parecer cuando recién se crearon las PC, el lenguaje BASIC se convirtió en la primera lengua 
franca de las computadoras gracias a Microsoft BASIC, ya que este venía instalado junto con 
los ordenadores IBM y su uso era muy fácil. Se cree que ganó su popularidad debido a algunas 
implementaciones como Apple BASIC (para computadoras Apple), y sobre todo a GW-BASIC y 
BASICA (ambos de Microsoft). Por ese entonces, vinieron dos potentes versiones del BASIC: 
Microsoft QuickBASIC y Turbo Basic (de Borland). Ambas versiones presentaban un lenguaje 
estructurado, compilado, considerablemente mejorado y muy amigable con el programador 
tanto novato como avanzado. Aunque se dice que se trató inútilmente de crear un estándar, 
este lo vinieron a marcar los BASIC de Microsoft. QuickBASIC desde la versión 4.0 (hasta 
donde sé) contaba con un completo sistema de ayuda que mejoró sustancialmente en la versión 
4.5, soporte de ratón: capacidad de obtener amplia ayuda, ejemplos y pormenores sobre una 
sentencia con solo dar un clic con el botón secundario del ratón sobre ella, lo cual resultaba 
muy útil, cómodo y amigable. Además contenía otras muchas más comodidades con respecto al 
Turbo como tipos de variables definidos por el usuario, editor inteligente, un gestor de 
ventanas más potente, y capacidad de declarar variables y constantes de una manera más 
potente. Posteriormente se fue perfeccionando hasta llegar a su versión 6.0, al parecer 
llamada desde ahí y hasta la versión 7.1 "BASIC PDS” (Profesional Development System, 
Sistema de desarrollo profesional). Al parecer, posteriormente Microsoft distribuyó junto con 
las últimas versiones de MS-DOS un interprete llamado Qbasic, del cual salió la versión 1.0 y 
luego la 1.1 que corregía algunas deficiencias de su predecesor. 


Mas o menos principios de los 90's, Microsoft desarrolló Visual Basic para Windows y Visual 
Basic para MS-DOS, que permitian crear aplicaciones para Windows y DOS respectivamente. 


Actualmente existe Visual Basic .NET, que es al parecer una version orientada a objetos del 
lenguaje BASIC. 
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Capítulo 1: Entrada y salida básica 


Escribamos en el editor de QB el siguiente programa: 


¿Qué es lo que hace el programa anterior?. Presiona <F5>. Nos muestra en la pantalla el texto 
"li BIENVENIDO A QUICKBASIC 4.5 :-) 1”. Ahora, lo que hace la sentencia REM 
(abreviatura de la palabra inglesa remark) es insertar un comentario dentro de nuestro 
programa fuente; esto es, el comentario no será tomado en cuenta por el compilador, solo sirve 
para insertar datos que sirvan como referencia al programa, para saber quien lo hizo, cuándo, 
para qué sirve, etc. Es bueno insertar comentarios de manera regular en nuestros programas 
como referencia a una orden o a algo que sea de interés para nosotros o para quien vaya a 
utilizar nuestro programa, especialmente si trabajamos en grupo o distribuimos nuestras 
fuentes. Lo que sigue es la sentencia CLS que borra la pantalla. Es primordial limpiar la pantalla 
cada vez que iniciemos un programa, esto para poder trabajar mejor y que se vea mejor. Para 
los que todavía no captan, PRINT es la orden que nos permite la salida por la pantalla, en este 
caso es la cadena de texto ¡ii BIENVENIDO A QUICKBASIC 4.5 ;-) !!!. Cuando queremos que 
con la orden PRINT salga texto, este ha de ir entre comillas dobles (*”). 


Para los que no estén familiarizados con los emoticones, estos son formas de representar 
expresiones por medio de caracteres; son utilizados en el chat para ahorrar tiempo y escribir 
menos. Por ejemplo el emoticón :-) de lado parece una cara guiñando un ojo, ¿ya?. Cada quien 
puede crear sus emoticones según tenga imaginación, algunos son : 


:-) Carita sonriente 
<|:-) De fiesta 
0:-) Niño bueno 


:-) Guiñando un ojo 
el Llorando 

:( Tristeza 

00 Busto 

:-0 Asombro 

d:-) Cachucha de lado 
3 Un respiro 

]:> Diablillo 

-X Me voy a callar 
:-I Serio 

-<€O Una flor 

: Alguien con bigote 


La sentencia END nos indica que nuestro programa ha terminado. 


SENTENCIA COLOR 


Ahora analizemos este otro programa: 


En realidad este programa hace lo mismo que el anterior, solo que el texto sale con un color 
verde. La sentencia COLOR nos permite dar color al texto que saldrá por la pantalla: 


Sintaxis: 
COLOR principal [,de fondo] [,de borde] 


- El color principal va del O al 15 y del 16 al 31 con parpadeo. 
- El color de fondo es opcional y va del O al 7 
- El color de borde es opcional y va del O al 15 


Pero ¿qué es ese ' y el texto que esta enseguida?. Como se puede adivinar, el apóstrofe (') es 
otra manera de insertar un comentario y es lo mismo que REM. 


Si sales a DOS cuando termines de ejecutar el programa, verás que el prompt quedará del 
color del texto (verde). Para que el símbolo de DOS quede con su color original, solo hay que 
agregar COLOR 7 (Gris) o CLS antes de END, solo que si le aplicamos el CLS es obvio que el 
texto que imprimimos se borrará inmediatamente antes de terminar el programa. Luego 
veremos como mejorarlo. 


CARACTERES Y OPERACIONES BASICAS 


Veamos ahora como realizar las operaciones más básicas: 


Como se puede apreciar en el ejemplo anterior, hacemos 5 operaciones básicas con 2 números 
ambos iguales a 5 y guardamos el resultado en cuatro variables cuyo nombre indica más o 
menos que operación se hizo con los números. Luego imprimimos en la pantalla 4 mensajes 
alusivos a las diversas operaciones que realizamos utilizando las variables numero1 y numero2. 
Cuando imprimimos variables, estas no van entre comillas ya que si las ponemos entre comillas 
QB las entenderá como si fueran texto e imprimirá solo el nombre de la variable. Por esto 
pusimos punto y coma (;) para diferenciarlas del texto y además indicar que después del texto 
se deje un espacio para que no se amontone el número con el texto anterior. 


Veamos este otro ejemplo: 


Como podemos ver, también podemos realizar operaciones dentro de la misma sentencia 
PRINT y no hay problema. Las operaciones básicas son las siguientes: 


¡Operador Función 


| Multiplicación 


Suma 


+ 
o Exponenciación 


Existe también el operador MOD que da el residuo de una división de dos números enteros 
hasta donde el cociente es entero. Por ejemplo 14 MOD 5 retorna 4: 


Z 
5)14 Hasta aquí el cociente es entero y el residuo es 4. 


4 
Si por ejemplo ponemos 14 MOD 4.6, entonces 4.6 será redondeado a 5 ya que no podemos 
utilizar reales con MOD, solo enteros. 


También existe el operador división entera que se representa por la diagonal invertida (NX) y 
cuya función es obtener el cociente entero de una división. Siguiendo con el ejemplo anterior, 
14 M5 retornara 2: 


a Hasta aquí el cociente es entero. 
5)14 


4 


Ahora analizemos el siguiente ejemplo: 


Como podemos apreciar, el punto y coma al final de una sentencia PRINT sirve para juntar en 
una misma línea de la pantalla otra sentencia PRINT que esta en otro renglón en nuestra 
fuente. ¿Si ponemos una coma (,) en vez de punto y coma que pasará?. Ponle (,) en vez de (;) y 
córrelo (<F5»). Como puedes ver, lo que esta después de una coma se separa una tabulación 
(como 7 espacios). 


El modificador TAB(n) va después de PRINT y nos permite colocar texto en una determinada 
posición del renglón en uso, y donde n es la posición donde queremos que se empiece a imprimir 
nuestro texto: 


Aquí el texto Hello, world! se imprimirá después de 3 espacios, y el texto ¡Hola mundo! en otro 
renglón y desde la posición 23. 


ek Nota: La pantalla en modo texto consta de 70 columnas y 25 renglones. 


Los tipos de datos que se manejan en QuickBASIC son los siguientes: 


¡Nombre ¡Descripción ¡Rango MES TS en memoria 


-32768 a 32767 > [|2bytes(i6bits) 


Long Entero largo con signo | -2,147,483,648 4 bytes (32 bits) 
2,147,483,647 


Single Real de simple | 1.5 E-45 a 3.4 E38 4 bytes (32 bits) 
precisión con signo y 
con 7 decimales 


Double Real de doble | 5.0 D-324 a 1.7 D308 8 bytes (64 bits) 
precisión con signo y 
15 decimales 


Cadena de caracteres |0 a 256 caracteres 1 byte p/caracter 


Todas las variables que utilizamos sin declarar el tipo se asumen como Single. Pero...¿Cómo 
declaramos los tipos de las variables?. Para declarar, por ejemplo, una variable que vaya a 
almacenar una dirección de una persona (por lo tanto será de tipo String) que se llame 
direccion la declaramos de la siguiente forma: 


direccion$ = "Morelos y 5% S/N, Col. Portales" 
Para declarar una variable de un tipo basta con poner el identificador al final. Ahora, cuando 
nosotros guardamos una cadena de texto en una variable de tipo String, el texto debe de ir 


entre comillas dobles ("”). 


Para declarar una variable de tipo real, por ejemplo de simple precisión (Single) y que vaya a 
guardar el numero 5.123 x 10% la declaramos de la siguiente forma: 


numero! = 5.123E24 


Ahora una de doble precisión (Double) que se llame numero2 y que tenga el valor de 
1.45877 x 10 


numero2X = 145877D-298 


3h Observación: Para declarar un exponencial en una variable Single utilizamos E y para 
declararlo en una variable de tipo Double utilizamos D. 


Una de las ventajas y a la vez desventaja que tiene el lenguaje BASIC frente a otros lenguajes 
de programación es que podemos crear variables en cualquier parte del programa según las 
vayamos necesitando. Cuando creamos una nueva variable, QB automáticamente reserva un 
espacio en memoria para almacenar el valor de esa variable, en el caso de los números la 
variable almacena un O y en el caso de las cadenas se almacena la cadena nula (""). Esta es un 
arma de dos filos ya que podemos caer en errores como el siguiente: 


Nosotros declaramos una variable (Single por default) que se llama numeroquevalepi y que 
almacena el valor 3.141597 y al tratar de imprimirla escribimos mal el nombre de la variable y 
ponemos numerogevalepi (sin la u) y lo que hicimos fue crear una nueva variable que por 
default toma el valor de O en memoria, así lo que se imprimirá en pantalla será: 


El valor de pi es O 


Esto en programas cortos es fácil de detectar, pero en programas largos es un poco más 
difícil; aun así, esto permite una programación más fluida, y es ideal para usar variables "sobre 
la marcha", cosa que no tienen otros lenguajes como Pascal o Modula-2. Con la práctica es muy 
fácil de detectar este tipo de errores. Por fortuna Microsoft, pensó en esto y agregó la 
opción de requerir la declaración de las variables en el Visual Basic; o sea, si una variable es 
hallada en el programa y no tiene declaración, se marca un error. 


Otra observación es que no podemos usar palabras reservadas para nombrar una variable, por 
ejemplo, no podemos utilizar una variable que se llame Print, Base, Rem, Cls, End, Len, Right$, 
Color, etc. ni en mayúsculas ni en minúsculas; tambien las variables no pueden empezar por un 
número o por un identificador de tipo como *fperro, Icosa, 3cadenas, etc., ni tener espacios, 
operadores, la ñ o el guión bajo (|). 


Una manera más fácil de declarar el tipo de una variable es con DIM. 


ORDEN DIM 


Permite la declaración de variables de un tipo determinado. 


La orden DIM permite una mejor manera de declarar variables y evita tener que poner los 
identificadores de tipo cada vez que la utilicemos, lo cual ahorra una muy tediosa tarea en 
programas largos. 

77 , A E ; 

hana] Si estas utilizando Turbo Basic (de Borland) no puedes declarar variables de esta 
manera. 


ENTRADA DE DATOS: LA ORDEN INPUT 


Hasta ahora hemos visto como guardar valores y como sacarlos por la pantalla, ahora vamos a 
dejar que el usuario los introduzca: 


Pudimos ver en el programa anterior, en la sentencia INPUT: 

- Un letrero (opcional) entre comillas, seguido de un (:) que le pondrá un signo de 
interrogación al final del letrero al salir por la pantalla. 

- Una variable donde se almacenara un valor. 


En el caso de que queramos que el usuario nos dé 2 o más mas valores en una misma sentencia 
INPUT se hace de la siguiente manera: 


Si no queremos que aparezca un signo de interrogación (2?) al final de nuestro letrero debemos 
ponerle una coma (,) . Para almacenar más de una variable en una misma sentencia INPUT, estas 
deben ir separadas entre si por comas; de igual manera el usuario debe de introducir los datos 
que se le piden separados entre si por una coma. Por ejemplo, si el programa anterior pide 


Introduzca la base y la altura del triángulo (separados entre sí por una coma) => _ 


El usuario puede introducir 
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Capítulo 2 Sentencias de conzal selectivas 
OPERADORES RELACIONALES 


Los operadores relacionales nos sirven para determinar la relación que tiene una expresión con 
otra. Los operadores relacionales que manejaremos en QB son los siguientes: 


¡Operador o signo ¡Significa ¡Ejemplo Se lee 
=2 35 |Tgualque [x=y  |xigualay 
: 


Menor o igua x menor o igual a 


Mayor o igual x mayor o igual a 
iferente de x diferente de 


Muchas veces se nos presentan situaciones en las que tenemos que evaluar una condición o 
situación. Si la condición es verdadera o "cumple", entonces ejecutamos una o más 
instrucciones; si no, ejecutamos otra u otras instrucciones. Veamos el siguiente ejemplo: 


El programa anterior valida si un entero es positivo o cero, o negativo, de la siguiente forma: 

- — El programa pide un número. 

- Si (if) el numero introducido es menor que cero (esta es la condición a evaluar) entonces 
(then) se imprime el mensaje "El número es negativo". 

- Si no (else) es negativo, entonces se imprime el mensaje “El número es positivo o cero". 


Un bloque de instrucciones IF...THEN...ELSE debe terminar siempre con END IF para indicar 
que nuestro proceso de selección IF ha terminado. Ahora, las condiciones que se manejan en 
las sentencias IF pueden ser verdaderas (True, en inglés) o falsas (False). Si por ejemplo 
corremos el programa anterior y al pedirse el numero nosotros introducimos un -1, entonces la 
sentencia IF verá que la condición es verdadera (en efecto el número es menor que O) y 
ejecutará la sentencia o sentencias que siguen al IF hasta encontrar el ELSE, luego se pasará 
hasta el END IF para luego seguir con el curso del programa. De otra forma si nosotros 
introducimos un 81, entonces la sentencia IF verá que las condición es falsa (false) y no 
ejecutará las sentencias que le siguen, luego se pasará hasta la sentencia ELSE y se ejecutaran 
las sentencias que le siguen hasta que termine el bloque (END IF), para luego continuar el 
curso del programa. 


Las condiciones suelen también ser afectadas por los operadores lógicos. Los operadores 
lógicos nos sirven para evaluar condiciones tales como: 


- — “Si numerol no es igual a cero entonces...” 
(IF NOT numerol = O THEN...) 
- "Si numerol es igual a cero o mayor a 1 entonces..." 
(IF numero1 = O OR numerol > 1 THEN...) 
- "Si numerol es igual a 1 y numero2 es menor que cero entonces... 
(IF numerol1 = 1 AND numero2 < O THEN) 
- "Si numerol es igual a cero ó menor que O entonces...” 
(IF numerol1 = O XOR numero < O THEN) 


ul 


¡Valor retornado por el operador lógico: 


y  [NOTx |xANDy [xORy |xXORy xEQV y |x IMP y | 
Foo oyo y pro — py | 


Para que esto quede más claro, veamos lo siguiente que nos ayudarán a ver más claro que son 
los operadores lógicos: 


NOT 

Una chica le pregunta a otra: 

- "¿Vasa iiral baile?. La otra contesta: 

- — No, no iré. 

- Sino vas al baile no verás a Fernando Antonio Del Valle Santiesteban... 


Aquí si la chica ho va al baile, entonces no podrá ver a Fernando A. Del V. Santiesteban. Si va, 
entonces lo verá. 


AND 


Una persona va a sacar la cartilla y la secretaría le dice: 
- Necesitas el acta de nacimiento original y un comprobante de domicilio. 


Para que esa persona pueda obtener su cartilla necesita el acta y un comprobante de domicilio. 
Si le falta cualquiera de estos papeles entonces no se la dan. 


OR 

El niño dice a su mamá en la nevería: 

- ¿Mamá me compras una nieve?. La mamá le dice 

- De cual quieres hijo, de fresa o de limón. El niño le contesta: 
- Quiero de las dos. 

- Esta bien, hijo. 


Aquí si el niño escoge de fresa, de limón o de ambas, de todas maneras comerá nieve. 


A este tipo de o se le llama o inclusivo, ya que puede incluir a ambos. 


XOR 

El niño le dice a la mamá en la nevería: 

- ¿Mamá me compras una nieve?. La mamá le dice: 

- De cual quieres hijo, de fresa ó de limón. El niño le contesta: 
- Quiero de las dos. 

- No, hijo: fresa ó limón, de las dos no. 


A este ó le llamamos también ó exclusivo porque excluye a una opción. 


EQV 
Cuando soltamos un objeto desde cierta altura este experimenta en su caida una aceleracion en 
su velocidad. 


IMP 
“Si estudias para el examen pasarás”. Aquí estamos afirmando que si se estudia, entonces se 
pasará. 


lanaa] Puede que alguien piense en cosas como que pasaría si tuviéramos algo como 


a=x AND y 


en un programa. En este caso los operadores lógicos producen operaciones binarias entre los 
valores de las variables. 


IF ANIDADOS 


Dentro de un programa podemos evaluar ciertas condiciones utilizando sentencias IF dentro 
de más bloques IF... THEN...ELSE. A este conjunto de sentencias agrupadas se les llama “IF 
anidados". 


El programa anterior simplemente divide los posibles valores de n en dos partes: los números 

menores que 5, y los números iguales o menores que 5. En el ejemplo podemos ver algunas 

cosas: 

- La sentencias IF pueden ejecutarse sin necesidad de que haya un ELSE después. O sea, 
si la sentencia se cumple la orden se ejecuta y si no, no. 

- Si la sentencia IF solo tiene una orden que ejecutar, esta puede ir inmediatamente 
después del THEN. 

- El END IF solo se pone cuando existe un bloque IF... THEN..ELSE, o cuando existe un IF 
que si se cumple ejecutará varias instrucciones, sin que después haya un ELSE: esto es: 


IF condición THEN 
instrucción 1 
instrucción 2 
instrucción 3 


instrucción n 
END IF 


Ahora veamos un ejemplo algo más complejo: 


- — Como el caracter introducido solo puede ser uno particular usamos XOR. 

- — Existen bloques IF... THEN...ELSE anidados. 

- —SiunlIF no se cumple, entonces se salta al ELSE inmediato que da lugar a otro IF. 

- — Cada bloque IF... THEN...ELSE termina con el END IF que le queda más cerca. Por ejemplo, el 
ultimo bloque IF...THEN...ELSE termina con el primer END IF; luego, el bloque que contenía a 
este bloque, termina con el segundo END IF, y así sucesivamente. 


ELSEIF 


En pocas palabras, ELSEIF es un "IF inmediatamente después de un ELSE”. Veamos el ejemplo 
anterior usando ELSETF. 


- —Lasentencia ELSEIF es también una parte opcional de un bloque IF...THEN...ELSE. Podemos 
también tener uno o varios ELSEIF dentro de un solo bloque IF...THEN...ELSE 

- Si el primer IF no se cumple, QB automáticamente va hasta el ELSEIF donde la condición se 
cumple y evalúa las ordenes que están después de este, hasta que se topa con otro ELSEIF, 
entonces saldrá del bloque IF...THEN...ELSE. 

- —Siniel IF ni los ELSEIF se cumplen, entonces el programa se va hasta ELSE. 


ERRORES FRECUENTES Y CONSIDERACIONES 


Como ya vimos anteriormente, podemos tener programas como el siguiente en el que haya IF 
“sueltos”, es decir, sin ELSE y sin END IF. 


Sin embargo, no debemos poner ELSE "sueltos" (o colgantes), es decir, sentencias ELSE que 
vayan después de otras sentencias ELSE y que además no contengan ninguna condición a 
evaluar, es decir, que no contengan un IF después de ellas: 


Lo que hará el programa anterior es evaluar el IF, si se cumple se saltará el primer ELSE pero 
no el segundo y lo ejecutará. Luego si hubiera más ELSE "sueltos", ejecutará uno no y otro sí, 
uno no y otro sí, así sucesivamente. En el caso de que la condición no se cumpliera, se ejecutará 


el primer ELSE y se saltará el siguiente hasta terminar el bloque. Si hubiera mas ELSE se 
saltaría el siguiente ELSE y ejecutaría el otro, se salta uno y ejecuta el otro, y así 
sucesivamente. Lo correcto podría ser: 


ELSEIF n = 2 THEN 


ELSEIF n = 3 THEN 


Un error que se comete muy frecuentemente cuando se anidan IF es que nos falte poner un 
END TF. Ejemplo: 


IF c$ = a XOR c$ = o XOR c$ = es XOR c$ Ss ale XOR c$ = El THEN 


ELSE 


QuickBASIC nos marcará el error "bloque IF sin END IF” 


Una cosa que puedes hacer para evitar este error es escribir el bloque completo y dentro de este ir 
escribiendo las instrucciones que se vayan necesitando. 


SELECCIÓN MULTIPLE: SELECT CASE 


Aquí utilizaremos una sentencia nueva: el bloque SELECT CASE. El bloque SELECT CASE nos 
sirve para seleccionar de entre múltiples valores que pudiera tener una expresión. 
Veamos el siguiente ejemplo: 


El ejemplo anterior nos presenta un pequeño menú con 3 opciones a escoger, luego selecciona 
los posibles valores que pudiera tener la variable 'op' (SELECT CASE op): si escogemos la 
opción 1, y por tanto le damos a la variable 'op' el valor de uno, entonces se ejecutaron las 
instrucciones que corresponden al caso de que la variable sea igual a 1 (CASE IS = 1), si 
escogemos la opción 2, entonces se ejecutarán las instrucciones que corresponden al caso de 
que la variable sea igual a 2 (CASE IS = 2), etc. 


Dentro de cada caso que tenga la expresión podemos ejecutar una o más instrucciones, 
incluyendo bloques IF... THEN...ELSE y anidar bloques SELECT CASE si nos fuera necesario. 


El caso ELSE (CASE ELSE) es opcional. 
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EL BLOQUE WHILE... WEND 


Ahora veamos como podemos repetir partes de un programa mientras que cierta condición se 
cumpla o sea verdadera... 


El bloque WHILE ("mientras")... WEND nos sirve para que mientras una condición se cumpla 
(en este caso, mientras contador < 5) repetir una serie de instrucciones, desde donde empieza 
el WHILE hasta que se encuentre el WEND. En este tipo de ciclos o bucles generalmente el 
valor de la condición ya ha sido inicializado desde antes de entrar al ciclo (contador = 0) y se 
incrementa dentro del ciclo (contador = contador + 1). El ciclo se ejecutará mientras la 
condición sea verdadera, por lo que si desde antes de entrar al bucle la condición ya es falsa, 
el programa no ejecutará el ciclo. Veamos... 


iaa Si lo ejecutas paso a paso <F8> en QuickBasic verás mejor la secuencia. 


También podemos caer en ciclos infinitos; esto es, ciclos que no tengan fin. 


IE! 
sé Para poder salir de un bucle infinito debemos utilizar la combinación de teclas CTRL 


+ Pause o CTRL + Scroll. En Turbo Basic asegúrate de la opción Keyboard Break del menú 
Options este en ON. 


¿Qué podemos observar en el programa anterior? En efecto el programa entrará en el ciclo ya 
que la condición es verdadera (i = 1), pero ¡ siempre será igual a 1 ya que no hay nada que la 
modifique dentro del bucle y así poder dar una salida. Este tipo de errores suele ocurrir si 
por ejemplo... 


" Ejemplo de un bucle WHILE...WEND infinito por error interno 
cont = 1 ' Inicializamos la variable 


CLS 
WHILE cont = 1 ' Mientras cont = 1... 
PRINT "HOLA, MUNDO..." 
cont = + 1 *¿¿ con ??. Si con = 0, entonces cont = 0 + 1 =1(:-0) 
WEND JE 
PRINT "Fin del programa" 
END 


También no necesariamente tiene que ser un incremento el que nos dé la salida... 


Si usamos un contador, también podemos incrementarlo como queramos... 


- No necesitamos declarar una variable cont = O ya que al crearla automáticamente asume 
este valor. 
-  Sinllegara a ser negativo, el programa se acaba. 


ENBEOQUE DOFLOOE 


El bloque DO ("hacer”)...LOOP ("bucle") tiene 4 variantes. Veamos la primera: 


DO WHILE...LOOP 

Este tipo de bloque es muy parecido a WHILE...WEND, ya que la condición regularmente se 
conoce por adelantado, y existe la posibilidad de que nunca se ejecute el ciclo. Mientras la 
condición sea verdadera, el ciclo se ejecutará. 


Sintaxis: 

DO WHILE <condición»> 
instrucción1 
instrucción2 
instrucción3 
[EXIT DO] 


instrucciónn 
LOOP 


Ejemplo: 


Cuando LOOP encuentra a la condición falsa se termina el ciclo. Si no quisiéramos que se 
ejecutara el ciclo... 


DO....OOP WHILE 


En este tipo de ciclos las instrucciones se ejecutarán por lo menos 1 vez, ya que la condición 
se evalúa cuando se termina de ejecutar el bloque de instrucciones. Se ejecutara el ciclo 


mientras la condición sea verdadera. 


Sintaxis: 

DO 
instrucción1 
instrucción2 
instrucción3 
[EXIT DO] 


instrucciónn 
LOOP WHILE <condición> 


Veamos el siguiente ejemplo: 


3: Nota: La sentencia EXIT DO nos permite salir de un bloque DO en cualquier momento. 


DO UNTIL...LOOP: 


La palabra UNTIL ("hasta que") nos dice que mientras la condición NO sea verdadera (a 


diferencia de WHILE), el bucle se ejecutará. 


Sintaxis: 

DO UNTIL «condición» 
instrucción1 
instrucción2 


mn 


Hacer hasta que" condición 


instrucción3 
[EXIT DO] 


instrucciónn 
LOOP ' "Bucle" 


Veamos el siguiente ejemplo: 


Al crearse la variable c (contador) esta asume un valor de O por lo que: 

- — Siel número de areas a calcular (n) es O, entonces la condición se hace verdadera antes de 
entrar al ciclo (en efecto O = 0) y por tanto el ciclo no se ejecutará. 

- — Sines positiva el ciclo que se ejecutará n veces hasta que la condición sea verdadera. 

- Si nes negativa el bucle se hace infinito, ya que cuando incrementamos el contador 
alejamos más a c de ser un numero negativo igual a n. 


Veamos un ejemplo más... 


DO... LOOP UNTIL 
En este tipo de bucles, las sentencias se ejecutarán al menos una vez y hasta que la condición 
sea verdadera. 


DO "Hacer... 
instrucción 1 
instrucción2 
instrucción3 


[EXIT DO] 
instrucciónn 


LOOP UNTIL «condición» ' Hasta que condición sea verdadera. 


Ejemplo... 


DO y LOOP pueden o no contener un WHILE o un UNTIL. Si consultas la ayuda de 
QuickBASIC a cerca de la orden DO obtendrás la siguiente sintaxis: 


Sintaxis 1: 
DO [(WHILE | UNTIL) condición] 
[instrucción] 
[EXIT DO] 
LOOP 


Sintaxis 2: 
DO 
[instrucción] 
[EXIT DO] 
LOOP [([WHILE | UNTIL] condición] 


Veamos el método que se utiliza en la ayuda que viene con QB para describir la sintaxis de una 
sentencia: 


- Las palabras en mayúsculas son palabras reservadas del lenguaje QB. 

- Los corchetes ([ ]) indican que lo que hay dentro de estos es opcional. 

- — La barrita (| ) y las llaves ([ $) significan que podemos utilizar -según nuestro uso- solo 
una de las ordenes que van entre las llaves y que van separadas por la barrita; no pueden ir 
dos de estas sentencias juntas, por ejemplo: DO WHILE UNTIL <condición». 

- Por sentencia O instrucción entenderemos de aquí en delante: una sola sentencia o 
instrucción, o también una serie de sentencias o instrucciones. 


Siguiendo con lo de la sentencia DO, esta puede ir sola junto con LOOP. Lo que hace esta 
sentencia es ejecutar un ciclo infinito ya que aparentemente no hay nada que lo detenga al no 
tener una condición que proporcione la salida. Se puede detener el ciclo al ejecutar el 
programa con la combinación de teclas CTRL + PAUSE o CRTL + SCROLL. Pero...¿cómo hacer 
para que se detenga sin usar este método externo?. Para salir de cualquier bloque DO 
utilizamos la sentencia EXIT DO. Veamos el siguiente ejemplo... 


Este tipo de bloque como podemos ver es infinito y solo con CTRL + SCROOL podemos salir. 
Para salir de un bloque DO podemos usar EXIT DO: 


Esta estructura nos permite cargar una o mas variables, con valores previamente almacenados 
con la sentencia DATA. Veamos el siguiente ejemplo: 


La sentencia RESTORE hace que se vuelven a leer los datos desde la primera DATA 


Si se intentan almacenar valores de cadena en variables numéricas se produce un error. 
Igualmente si se intenta leer después de que se han pasado todas las DATA y no haya un 
RESTORE para reiniciar desde el principio. 


EL CICLO FOR..NEXT 


Otra estructura muy útil cuando trabajamos con ciclos es el FOR...NEXT. Su sintaxis es la 
siguiente: 


Sintaxis: 

FOR contador = valor inicial TO valor final [STEP incremento] 
<sentencia> 
[EXIT FOR ] 

NEXT [contador] 


La sentencias se ejecutan hasta que el contador llegue a su valor final; si omitimos la palabra 
STEP el contador se incrementa por default en 1. EXIT FOR sirve para salir del bloque FOR en 
cualquier momento. Veamos el siguiente ejemplo: 


Este tipo de bucle se ejecuta contador final - contador inicial + 1 veces. Viendo el ejemplo 
anterior, podemos comprobar que el bucle se ejecutará 3 - 1+1= 3 veces. Veamos este otro 


programa: 


Tambien podemos tener ciclos FOR anidados, en donde cada FOR se termina con el NEXT que le 
queda mas cerca... 


En el ejemplo anterior podemos notar que: 

- Para cuando el primer FOR (texto) dé una vuelta, el FOR siguiente (fondo) ya terminó su 
ciclo, 

- Podemos usar variables para establecer los valores de los colores (sentencia COLOR) así 
como de cualquier otra sentencia que utilice valores. Por ejemplo TAB(n), donde n es un 
variable que obviamente contiene un numero que se utilizará para indicarle n espacios a 
TAB. 


No solo podemos utilizar FOR para incrementar una variable, también podemos decrementarla 
utilizando STEP con la cantidad en que queremos disminuirla: 


El ciclo de tipo FOR...NEXT es muy útil para llenar arreglos, los cuales son estructuras de 
datos que veremos en el siguiente capitulo... 
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Primero que nada, es necesario tener una noción de lo que es en sí una función. Una función 
puede ser definida como una correspondencia entre dos variables, una llamada variable 
dependiente y otra llamada variable dependiente. Veamos la siguiente notación: 


y = f(x) 


Donde: 

y : Es la variable dependiente de la función. Se le llama dependiente porque para que pueda 
tomar un valor, depende de los valores que pueda tomar la variable x. También podemos decir 
que "y esta en función de x". 

x: Es la variable independiente de la función. Se dice que es independiente ya que puede tomar 
los valores que quiera. 

f: Se puede decir que es el procedimiento o ecuación que tomará a x para devolverle un valor a 


y. 
Veamos una función muy común: 
y = ya + Xx 
La función anterior tiene a y como variable dependiente y a x como variable independiente, y el 


procedimiento es elevar a x (variable independiente) al cuadrado y sumarle x. Por cada valor 
que tome x, a y le corresponderá otro. 


Ahora veamos algunas de las más comunes funciones matemáticas que son parte del lenguaje 
BASIC (funciones predefinidas): 


ABS(x) 
Devuelve el valor sin signo de x (valor absoluto). Ejemplo: 


SIN (x) 
Devuelve el seno de x, siendo x el valor de un ángulo dado en RADIANES. Ejemplo: 


E E ) 
lascal Como son muy comunes las conversiones de grados a radianes, para hacer esto se 


utiliza la fórmula: 


angulo_en_radianes = (angulo_en_grados x 3.1416) / 180 


COS (x) 
Devuelve el coseno de x, donde x es el valor de un ángulo en radianes. Ejemplo: 


TAN (x) 
Devuelva la tangente de x, siendo x el valor de un ángulo en radianes. Ejemplo: 


ATN(x%) 
Devuelve el ángulo equivalente a la tangente x. 


LOG(x) 
Devuelve el logaritmo base e (logaritmo natural) de x, y donde la constante e = 2. 7182 y x es 
un valor MAYOR que cero. 


El logaritmo base e se escribe como log « o como In. 


EXP(x) 
Devuelve e a la x, donde x es un valor menor o igual a 88.02969. A esta función se le llama 
antilogaritmo en base e. 


A Comprendiendo lo hecho: En matemáticas, un logaritmo se define como la potencia o 
exponente a la que se ha de elevar un numero fijo (llamado base) para dar como resultado un 
numero dado: 


In9 = (2.7182)?19722 


3 Podemos decir que si nos dan 9 para sacar su logaritmo natural (e es la base), entonces el 
resultado será 2.197225. 


Por otro lado, un antilogaritmo se define como el resultado de elevar una base a un número 
dado. 


3 Tomando el ejemplo anterior podemos decir que si nos dan 2.197225 para sacar su 
antilogaritmo natural, entonces el resultado será 9. 


Las siguientes funciones marcadas con asterisco son exclusivas de Turbo Basic (de Borland). 


* LOG2(x) 
Da como resultado el logaritmo base 2. 


LOG10(x) 
Da como resultado el logaritmo base 10. 


EXP2(x) 
Devuelve 2 a la x. 


EXP10(x) 
Devuelve 10 a la x. 


SWAP x, y 
Intercambia los valores de las variables. 


FIX(x) 
Le quita los decimales a x, siendo x un numero real. 


lana] La función FIX trunca un entero, NO lo redondea. 


INT(x) 
Redondea x al número menor inmediato que sea menor o igual a x. 


SOR(x) 
Calcula la raíz cuadrada de un número o expresión mayor o igual a cero. El resultado se da en 
doble precisión. 


SGN(x) 

La función SGN trabaja de la siguiente forma: 
-  Sixes negativo, SGN devuelve -1. 

- Sixescero, SGN devuelve O. 

-  Sixes positivo, SGN devuelve 1. 


El siguiente ejemplo resuelve ecuaciones cuadráticas del tipo ax? + bx + c = 0 utilizando la fórmula 


=b+.¡b? —4ac 


2a 


“Resuelve ecuaciones cuadráticas del tipo ax? + bx + Cc = 0 por la fórmula gral. 


NUMEROS ALEATORIOS 

RND 

La función RND devuelve un número (tipo Single) al azar entre el rango de O y 1. Cada vez que 
se corra el programa, RND generará los mismos números "aleatorios", por lo que se requiere de 
un generador para que cada vez que se corra el programa los números sean diferentes. 


TIMER 
Esta función retorna los segundos transcurridos desde la media noche de la maquina. TIMER 
devuelve un valor real en el intervalo abierto entre O y 86400. 


Sentencia RANDOMIZE [n] 

Inicializa el generador de números aleatorios a partir de una semilla (n). Si no se da una 
semilla, QuickBASIC detendrá el programa y le pedirá una al usuario; por otro lado, si esta 
semilla permanece constante durante el programa, los números generados serán los mismos 
cada vez que se corra el programa. Esta sentencia se usa para generar números aleatorios para 
la función RND. 


Para evitar que se "atasquen” los números aleatorios, es muy común el uso de la función TIMER 
para darle semillas diferentes a RANDOMIZE. Pero antes veamos el siguiente ejemplo: 


Como no utilizamos ninguna semilla para RANDOMIZE, QB preguntará por un número para 
iniciar el generador de números aleatorios. Veamos este otro: 


Como la semilla es siempre la misma en todo el programa, cada vez que este se corra, el número 
"al azar” será siempre el mismo. Por lo tanto si queremos números que no se repitan debemos 
usar una semilla que cambie cada vez que se inicie el programa: 


FUNCIONES DE CONVERSION NUMERICA 


CINT(x) 

Redondea x al entero más cercano, siendo x un número con decimales que está en el rango de 
los enteros cortos (-32768 a 32767). Si x esta fuera del rango de los enteros cortos, 
entonces se produce un mensaje de "overflow" (desbordamiento). 


CLNG(x) 

Redondea x al entero más cercano, siendo x un numero con decimales que está en el rango de 
los enteros largos (-2,147,483,648 a 2,147, 483,647). Si x esta arriba del rango de los enteros 
largos, entonces se produce un mensaje de “overflow" (desbordamiento). 


CSNG(x) 
Da una precisión simple a x, siendo x de tipo Double, pero estando en el rango de los SINGLE 
(1.5 E-45 a 3.4 E38). 


CDBL(x) 
Da una precisión doble a x, teniendo x una precisión simple y estando x dentro del rango de 
los Double (5.0e-324 a 1.78308). 


INTRODUCCION A LOS ARREGLOS 


ARREGLOS DE UNA DIMENSION 
Hasta el momento hemos visto las estructuras de datos más sencillas que son las variables, 
pero ahora veremos otras estructuras de datos que se llaman arreglos. 


Para ver más o menos para que se utilizan estas estructuras, pensemos en lo siguiente: 
Debemos introducir los nombres de 5 personas y guardarlos para luego volverlos a imprimir en 
el mismo orden en que entraron, ¿cómo se haría esto?. La primera forma que se nos podría 
ocurrir (ya que no sabemos nada sobre arreglos, en teoria) es usar 5 variables de tipo String, 
guardar los nombres en ellas y luego volverlos a imprimir, algo así como... 


Esta es la manera más engorrosa de hacerlo. ¡Que tal si fueran 20, 30, 100 o 200 personas!. 
Los arreglos (también llamados arrays, matrices o vectores) son espacios de memoria que se 


utilizan para almacenar información de un tipo de datos determinado. Podemos tener arreglos 
de enteros, de cadena, de reales de simple precisión, etc. Podemos imaginar un arreglo sencillo 


de la siguiente forma: 


Arreglo sencillo de 5 
elementos. 


Cada cuadro (o dirección del arreglo) es un espacio reservado en memoria para guardar 
información del tipo que vaya a ser el arreglo. Siguiendo con el ejemplo de las 5 personas, se 
supone que el arreglo será de tipo String ya que almacenaremos cadenas de caracteres. Para 
utilizar un arreglo, debemos declararlo primero con la siguiente sintaxis: 


DIM nombre_del arreglo(tamaño_del_arreglo) AS tipo_de_dato 


Siguiendo con el ejemplo anterior, podemos declarar nuestro arreglo de la siguiente forma: 


DIM personas(5)) AS STRING 


Ahora veremos como llenar las localidades que reservamos en el arreglo. 


En realidad el programa anterior es muy engorroso todavía, pero nos ilustra como es como se 
llenan las direcciones de un arreglo. De lo anterior podemos ver que el nombre de la persona 1 
se almacenará en la dirección 1 del arreglo, la persona 2 en la dirección 2, la persona 3 en la 
dirección 3 del arreglo, etc. Si quisiéramos llenar una dirección 6 se produciría un mensaje 
“subscript out of range” (“límite fuera de rango"), ya que queremos poner valores en una 
dirección que no existe. 


Como las direcciones están especificadas por un número, podemos utilizar un FOR para rellenar 
el arreglo en la posición del contador, empezando el contador en el límite inferior del arreglo y 
terminando en el límite superior. Veamos como se hace... 


Existe otra forma de declarar un arreglo que es la siguiente: 


DIM nombre_del arreglo(límite_inferior TO límite_superior) AS tipo_de_dato 


De lo anterior podemos deducir que es posible tener arreglos cuyo límite inferior sea cualquier 
entero corto. Por ejemplo: 


DIM elementos(3 TO 19) AS INTEGER 
DIM goles(0 TO 15) AS INTEGER 
DIM velocidades(-1000 TO 1000) AS SINGLE 


El limite inferior por default es O. Como el límite inferior es cero, alguien se puede preguntar: 
bueno, si el límite inferior es cero, entonces ¿porqué empezamos a rellenar el arreglo desde la 
posición 1?. Si consideramos el formato 


DIM nombre_del arreglo(tamaño_del_arreglo) AS tipo_de_dato 


podemos ampliar lo siguiente: 


- Si empezamos a rellenar el arreglo con 1 como límite inferior (o base), entonces 
QuickBASIC lo "entenderá" y nos dejará que lo rellenemos desde 1 para terminar en 5. En 
pocas palabras, si empezamos a rellenar en 1, el tamaño del arreglo permanece igual. 


- Si queremos llenar el arreglo personas(5) (siguiendo con el ejemplo anterior) empezando 
desde O, entonces terminaremos de introducir todas las personas en la posición 4 del 
arreglo. Pero como en realidad “tamaño_del_arreglo" es el límite superior, todavía 
podríamos introducir el nombre de una persona más en la posición 5 del arreglo. En pocas 
palabras si comenzamos a rellenar el arreglo desde O, el tamaño del arreglo se 
incrementaría en 1. 


Ya que QB lo permite, es recomendable empezar a rellenar el arreglo desde 1, aunque hay quién 
prefiere establecer desde el principio los límites del arreglo usando 


DIM personas(1 TO 5) AS STRING 


Aunque no es muy común que se utilicen arreglos cuyo límite inferior sea diferente de 1 (en 
BASIC), puede que se dé el caso y por eso se usa el TO para poner donde empieza y donde 
termina un arreglo. 


ARREGLOS DE MÁS DE UNA DIMENSION 
Hasta el momento hemos visto arreglos sencillos o de una dimensión, ahora veremos arreglos 
de más de una dimensión. Empecemos por ver un ejemplo con un array de dos dimensiones: 


Supongamos que queremos capturar los siguientes datos de 6 personas para luego imprimirlos 
en el mismo orden en que entraron: 

Nombre 

Sexo 

Clave Unica de Registro de Población (CURP) 

Dirección 

Zona postal 


A Nota: La zona postal puede verse a simple vista como para almacenarse tipo LONG o 
INTEGER, pero hay que tener en cuenta que sí tenemos un código postal que empiece en O (por 
ejemplo 03145), al guardarlo se almacenará sin el cero inicial (3145), lo cual no es cierto. ¡O que 
tal un código de barras de algún producto!, iuna tarjeta de crédito!, iun número de expedientel, 
o luna cuenta bancarial. Para evitar errores, estos datos deben entrar en formato STRING. 
Luego, ¿cuáles datos son los que deben entrar como número? Sencillo, solo los datos que nos 
sirvan para realizar cálculos. 


A simple vista se puede antojar utilizar 6 (1 por cada persona) arreglos de 5 elementos (en 
cada dirección iría un dato) tipo String; o también 5 (1 por cada dato) arreglos de 6 elementos 
(en cada elemento iría una persona). Como esto es algo tedioso (imaginemos unas 100 personas 
y unos 30 datos para algún curriculum), lo mejor es utilizar un arreglo de dos dimensiones. En 
realidad la sentencia DIM no se limita a declarar variables o arreglos de 1 sola dimensión, sino 
que va mucho más allá: 


DIM personas(1 TO 10, 1 TO 5) o DIM personas(10, 5) 'Arreglo de 2 dimensiones 
DIM determinante(4, 4) 'Arreglo de 2 dimensiones 
DIM abuelos(2, 3, 15) o DIM abuelos(1 TO 2,1 TO 10,1 TO 15) 'Arreglo de 3 dimensiones 
DIM bisabuelos(2, 3, 2, 3) 'Arreglo de 4 dimensiones 


Las dimensiones de un arreglo en QB pueden ser desde O (que es una variable sencilla) hasta 
60 dimensiones; y el rango de los límites puede ser cualquier número en el intervalo de 
-36768 a 36767, pero el número de elementos no debe sobrepasar los 36767. Ahora veremos 
como utilizar un arreglo de dos dimensiones: 


En el ejemplo anterior utilizamos un arreglo de dos dimensiones para almacenar los datos de 
las personas. La primera dimensión identifica a las personas en una dirección respectiva (la 
persona 1 se representa en la dirección 1 de la primera dimensión del arreglo, la persona 2 en la 
dirección 2, la persona 3 en la 3, etc.) y en la segunda dimensión se guardan los datos de cada 
persona. 


Con el primer FOR nos posicionamos en la dirección de la persona y cuando con el segundo FOR 
terminamos de recolectar los datos, entonces se continua con la siguiente persona. 


Los datos se guardan usando la conveniencia de que el elemento 1 de la segunda dimensión 
corresponde al nombre de la persona, el elemento 2 al sexo, el elemento 3 a la dirección, el 
elemento 4 a la CURP y el elemento 5 a la zona postal. Por esto puse los ELSETF. 


Ahora veamos como utilizar un arreglo de 3 dimensiones: 


La primera dimensión del arreglo corresponde a la sucursal, la segunda parte al departamento 
en donde trabaja el empleado y en la 3? dimensión se almacenará el no. de horas que trabajó en 
la semana. 


El primer FOR nos sirve para primeramente colocarnos en la sucursal, el segundo FOR para 
colocarnos en el departamento, y el 3er. FOR nos sirve para recolectar las horas trabajadas de 
los empleados: cuando este ultimo FOR termina, entonces se prosigue con el siguiente 
departamento; y cuando se terminan los departamentos, entonces continuamos con la siguiente 
sucursal. 


FUNCIONES LBOUND Y UBOUND 


Estas dos funciones nos permiten obtener los límites inferior y superior de la dimensión de un 
arreglo (UBOUND, abreviatura de Upper Bound o límite superior; LBOUND, abreviatura de 
Lower Bound o límite inferior) respectivamente. Su sintaxis: 


UBOUND(nombre_del_arreglo[ ,dimensión]) 
LBOUND(nombre_del_arreglo[ dimensión]) 


Si el arreglo es de una dimensión, entonces solo ponemos el nombre del arreglo. Por ejemplo si 
tenemos el arreglo 


DIM cubo(1 TO 20, 3 TO 9, 3TO 15) AS SINGLE 


entonces 

LBOUND(cubo, 1) 'Devolverá 1 que es el límite inferior de la primera dimensión 
LBOUND(cubo, 2) 'Devolverá 3 que es el límite inferior de la segunda dimensión 
LBOUND(cubo, 3) 'Devolverá 3 que es el límite inferior de la tercera dimensión 
y 

UBOUND(cubo, 1) 'Devolverá 20 que es el límite superior de la primera dimensión 


UBOUND(cubo, 2)  'Devolverá 9 que es el límite superior de la segunda dimensión 
UBOUND(cubo, 3)  'Devolverá 15 que es el límite superior de la tercera dimensión 


¿Que pasaría si quisiéramos obtener los límites superior e inferior del siguiente arreglo (ojo 
que no especificamos los limites con TO)? 


DIM vectores(3) AS INTEGER 


Es posible que si en un programa empezamos a rellenar este arreglo desde 1 creamos que como 
empezamos a rellenar desde 1, entonces LBOUND nos retornará 1; lo cual no hay nada más 
falso. Por otro lado y como los arreglos comienzan virtualmente en O, entonces: 


LBOUND(vector) 'Devolverá O ya que los arreglos empiezan desde O. 
UBOUND(vector) 'Devolverá 3 ya que en efecto el límite superior es 3. 


De lo anterior podemos deducir que: 

3 Suponiendo que empezamos a rellenar un arreglo desde un número que no sea cero y luego 
queremos referirnos al menor elemento en una determinada dimensión utilizando LBOUND, 
entonces deberemos poner los limites usando TO. Ejemplo: 


3 Podemos utilizar la declaración OPTION BASE n para indicar que el limite inferior de 
todos los arreglos de nuestro programa que no declaremos con TO empezarán en n, donde n 
puede ser O o 1. Ejemplo: 


xk Notas: 


- Si se va a utilizar la declaración OPTION BASE, entonces esta debe de ir antes de 
cualquier arreglo. 


Existen dos tipos de arreglos: estáticos y dinámicos. Una arreglo estático es un arreglo cuyo 
número de elementos en cada dimensión permanecerá igual durante le ejecución del programa; 
por otro lado un arreglo dinámico es un arreglo cuyo número de elementos en cada dimensión 
puede cambiar en el transcurso del programa; o sea, puede hacerse más chico o más grande. 
Hasta el momento solo hemos manejado arreglos estáticos. Ya que los arreglos ocupan espacio 
en memoria, debemos indicarle al compilador si queremos que "haga flexible” a los arreglos y a 
la memoria, ó indicarle que los arreglos permanecerán con el mismo número de elementos 
durante todo el programa. 


Si vamos a usar arreglos dinámicos en nuestro programa, entonces debemos de poner el 
metacomando (comando a nivel compilador) HDYNAMIC al inicio del programa y a manera de 
comentario, esto es: 


'" HDYNAMIC 
o 
REM $DYNAMIC 


Por otro lado si en nuestro programa solo vamos utilizar arreglos estáticos, entonces podemos 
poner el metacomando KSTATIC al inicio del programa, aunque no es necesario. 


'$STATIC 
0 
REM $STATIC 


A Nota: Todos los arreglos por default son estáticos y tipo SINGLE. 


La sentencia ERASE reinicializa un arreglo poniendo todos los elementos a cero y todas las 
cadenas en nulo (*") (en pocas palabras lo "resetea”). Ejemplo: 


Para borrar más de un arreglo solo hay que ponerlos separados por comas (,) después de 
ERASE. Por otro lado, la sentencia REDIM cambia el numero de elementos que contienen las 
dimensiones de un arreglo $DYNAMIC. 


| 
pad REDIM cambia el número de elementos en las dimensiones de un arreglo, NO las 


dimensiones; o sea, NO podemos tener algo como. 


REM $DYNAMIC 
DIM arreglo(5, 6) * Array de 2 dimensiones 
REDIM arreglo(3, 5, 6) * Array de 3 dimensiones 


Por último, solo queda mencionar que al cambiar el tamaño del un arreglo, todos los elementos 
se resetean (números a O y cadenas a *"). También es posible cambiar el número de elementos 
del arreglo $«DYNAMIC, primero borrándolo con ERASE y luego volver a declarar los límites 
con DIM. 
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Al parecer, esta forma de programar se basa fundamentalmente en la inclusión en un programa 
de subprogramas que hagan cada uno una tarea especial para el programa en general. Como "la 
necesidad es la madre de la invención”, al parecer la programación estructurada nace de la 
necesidad de dotar a los programas de una estructura, una mayor claridad en el diseño y una 
especie de jerarquización que permitan depurar, mantener y corregirlos de una manera sencilla 
y rápida. 


QuickBASIC puede incluir en un programa: 
3 Subrutinas 

3 Procedimientos 

3 Funciones 

3 Módulos 


Las subrutinas son subprogramas que son llamados desde un programa principal u otra 
subrutina mediante la orden GOSUB. Tnician con una etiqueta o número de línea y terminan con 
la sentencia RETURN ("regreso"), la cual le devuelve el control al nivel inmediato desde donde 
fue llamada (ya sea programa principal u otra subrutina). Vamos a poner como ejemplo uno de 
los programas de los capítulos anteriores, pero ahora al estilo estructurado: 


Las subrutinas del tipo GOSUB...RETURN tienen la siguiente estructura: 


etiqueta o número de línea: 
<sentencias> 
RETURN [etiqueta o número de línea] 


Donde RETURN devolverá el control al nivel desde donde fue llamado... 


o a otra etiqueta o numero de linea... 


COMO USAR GOSUB Y RETURN 

Aunque podemos usar RETURN para retornar el control a otro subprograma diferente del que 
llamó a esa subrutina, para evitar conflictos y tener una mejor estructura es recomendable 
usarlo para devolver el control al nivel inmediato desde donde la subrutina fue llamada, y por 
otro lado utilizar a GOSUB para darle el control a otra subrutina cualquiera. Lo anterior nos 
evita tener errores como el siguiente: 


Estas subrutinas de tipo GOSUB...RETURN se deben escribir después del final del programa 
(END) para evitar que el programa se vaya de largo en la ejecución y nos produzca un error 
como el siguiente: 


El siguiente tipo de procedimientos provee una manera más potente, sólida, sexy y legible que 
las subrutinas GOSUB...RETURN... 


PROCEDIMIENTOS 


Los procedimientos son subprogramas que reciben variables (o constantes) desde el nivel 
superior para ejecutar una determinada tarea. Veamos el siguiente ejemplo: 


El ejemplo anterior nos presenta un simple programita que llama o invoca (mediante la orden 
CALL) a un procedimiento llamado Display para pasarle una constante String que contiene la 
cadena "HOLA A TODOS..." e imprimirla en pantalla. Ahora entremos en detalles: 


Un procedimiento tiene la siguiente estructura: 


Sintaxis: 

SUB nombre_del_procedimiento[(parámetros)] [STATIC] 
<instrucciones> 
[EXIT SUB] 
<instrucciones> 

END SUB 


Del nombre del procedimiento debemos decir que este tiene que ser único en todo el 
programa, es decir, NINGUN otro procedimiento ni variable debe de llamarse igual a este. Si 
en un programa existe algo como: 


QuickBASIC nos presentará el mensaje "Duplicate definition", que significa que existe ya una 
variable con ese nombre. 


MANEJO DE PARAMETROS Y ARGUMENTOS 
Ahora, siguiendo con el ejemplo 


alguien puede pensar lo siguiente: ¿Si al procedimiento le "pasamos" una constante llamada 
saludo$, entonces porqué dentro de la SUB este mismo valor se llama mensaje?. El parámetro 
mensaje nos indica que le "pasaremos" al procedimiento un argumento de tipo String, y que ese 
mismo argumento o valor (en este caso es una constante llamada saludo$) se llamará diferente 
dentro de la SUB (en este caso mensaje, centiendes?). Veamos este otro ejemplo: 


Aquí tenemos un procedimiento que se llama ImprimeSuma con dos parámetros (Single por 
default) ni y n2, al cual le pasaremos desde el programa principal dos variables (los 
argumentos) llamadas a y b para que imprima la suma de ambas. 


VALORES POR REFERENCIA 
Es muy importante dejar muy en claro que las variables se pasan a los procedimientos por 
referencia; es decir, se pasan con otro nombre, pero sigue siendo la misma dirección en 


memoria; por lo tanto, todo lo que se les haga dentro del procedimiento las afectará afuera de 
este: 


En el ejemplo anterior intercambiamos los valores de dos variables (llamadas a y b en el 
programa principal) dentro de un procedimiento llamado Cambiar (en el que las variables se 
llaman x y y). Esto consiste una gran ventaja para cuando queremos obtener más de un valor en 
una misma serie de operaciones, lo cual no lo permiten las funciones. 


PASANDO ARREGLOS 
Ampliando un poco más esto, si queremos que los argumentos sean arreglos, estos se pasan de 
la siguiente manera: 


No tiene ninguna ciencia, solo se pasa el arreglo sin nada entre paréntesis, a menos que 
queramos pasar una posición determinada del arreglo en particular. 


A Nota: Ojo que el parámetro también debe ser un arreglo del mismo tipo, de otra forma 
obtendremos un error 


que significa que el tipo del parámetro no coincide con el de la variable que queremos pasar 
(argumento). 


Pero bueno, para aquellos que ya detectaron algo diferente en el programa anterior, vamos a 
comentarlo. ¿Qué es eso de DECLARE SUB?. Si estas trabajando sobre QuickBASIC de 
seguro ya te diste cuenta que cada vez que guardas un programa en el que hay SUB's, QB 
declara por nosotros los procedimientos que estamos utilizando mediante la sentencia 
DECLARE. La sentencia DECLARE provoca que el compilador cheque el numero y tipo de los 
variables que le pasamos al procedimiento cuando lo mandamos llamar. 


Sintaxis: 
DECLARE (SUB | FUNCTION) nombre ([lista_de_parametros]) 


Nk Nota: Si el tipo de los argumentos que pasamos no coincide con el tipo de los parámetros, 
entonces se produce el error: 


que significa que el tipo del parámetro no coincide con el de la variable que queremos pasar. 


FUNCIONES 


Como ya vimos en el capítulo 4, una función es una correspondencia en la que, mediante 
operaciones con una o más variables independientes, le damos un valor a una variable 
dependiente. Hasta el momento hemos visto solamente las funciones predefinidas que nos 
ofrece QB, pero ahora vamos a ver como crear nuestras propias funciones de acuerdo a como 
las vayamos necesitando. Una función esta compuesta por un bloque de la siguiente forma: 


Sintaxis: 
FUNCTION nombre[identificador] ([parámetro AS tipo[, parámetro AS tipo[....J1J) [STATIC] 
«sentencias> 
nombre = expresión 
[EXIT FUNCTION] 
«sentencias> 
END FUNCTION 


Veamos el siguiente ejemplo: 


Dentro del cuerpo de la función, debemos de asignarle a la función el valor que va a devolver, 
en este caso a la función Cuad le asignamos a n * n para que lo devuelva a la variable 
dependiente cuadrado. Veamos otro ejemplo: 


PASANDO VALORES POR VALOR 

El pasar argumentos por valor, nos permite pasar al subprograma el valor de las variables y no 
la dirección; esto evita que puedan ser modificadas dentro del subprograma. Para hacer esto, 
al llamar a la función o sub debemos encerrar al argumento entre paréntesis, por ejemplo de la 
siguiente forma: 


DECLARE FUNCTION Presion(fuerza, area) 

result = Presion((P), (A)) 

FUNCIONES RECURSIVAS 

Una función, al igual que una SUB, tiene la ventaja de que puede llamarse a si misma. Para 


visualizar esto mejor, pensemos en algo como calcular el resultado de elevar un número a una 
potencia. En este caso podemos decir que, por ejemplo, 8 elevado a la 3 sería 


8*=8*48*a=518 
o también 
8*-8*(8?%)=8*8*8= 512 
Y para números cualquiera podemos tener que 


UR e A e dl E o dell der DE o del dea 


Ahora, un programa que hace lo mismo es: 


En el ejemplo anterior hemos jugado un poco con la recursividad y tenemos una función que se 
llama a si misma. Es importante que demos una salida a la recursión para que se vayan 
retornando los valores al nivel superior inmediato. 


El factorial de un número es, por ejemplo, de 5: 
5Bl=5*4*3*2*1=120 


que sería lo mismo que 


5/=5*41=5*4* 3! = 120 


FUNCIONES Y PROCEDIMIENTOS ESTÁTICOS 

Cada vez que nosotros accedemos a una función ó SUB, los valores de las variables que se 
encuentran en el cuerpo de esta se resetean (numero a O y cadenas a ""). Si queremos que los 
valores de estas se conserven entre llamadas, podemos hacer que la función (ó SUB) sea 
estática colocando la palabra STATIC al final de esta. 


Ejemplo: 


De otra manera, si no fuera estática, tendríamos lo siguiente: 


ALCANCE DE LAS VARIABLES 
Las variables se pueden dividir por el alcance que tienen en dos tipos: globales y locales. 


Variables locales 


Las variables locales se crean dentro de cada procedimiento y su valor es únicamente para ese 
procedimiento. En el ejemplo 


tenemos dos variables, num y n. Ambas variables son locales, pero num es local a principal y n al 
procedimiento ejemplo. Esto quiere decir que si citamos a num dentro del procedimiento, 
entonces se crea una nueva variable local (pero ahora local al procedimiento) y aunque fuera de 
ese procedimiento ya existe una variable con ese mismo nombre, ambas son diferentes 


centiendes?. Todas las variables son locales por default, tienen alcance únicamente en sus 
respectivos procedimientos. 


Variables globales 


Las variables globales son aquellas cuyo valor será el mismo en todos los procedimientos, sin 
necesidad de pasarlas como argumentos. Debemos utilizar la orden SHARED ("compartido") 
para indicar que un mismo nombre de variable tendrá el mismo valor en todos los 
procedimientos de ese módulo. Si la variable es creada dentro de una SUB entonces se usa la 
sintaxis 


SHARED variable [AS tipo] [, variable [AS tipo]]... 


De otra forma utilizaremos SHARED después de DIM. 


DIM SHARED variable [AS tipo] [, variable [AS tipo]]... 


MÓDULOS 


Un programa BASIC esta compuesto por uno o más módulos (.bas). Hasta ahora, solo hemos 
manejado programas de un solo módulo llamado módulo principal. El módulo principal es el 
"kernel del programa", es donde deben entrar los datos e iniciar el programa. Los otros 
módulos pueden contener SUBs, funciones, constantes, y tipos de datos definidos por nosotros 
(luego los veremos). La creación de módulos constituye un método muy potente para reutilizar 
código, ya que podemos utilizarlos para realizar otros programas. 


Cuando nosotros creamos un módulo nuevo, QB lo guardara en el disco duro (o dispositivo que 
queramos) con el nombre que le especifiquemos y una extensión .bas. Al compilar un programa 
de dos o más módulos, QB compilará separadamente cada modulo para luego enlazar los .obj y 
formar el ejecutable. 


71 
a En QuickBASIC puedes crear un nuevo módulo mediante el menú File/Create 


File...: si existe, cargarlo usando File/Load File..., y descargarlo con File/Unload File..., 


así como editar o mover sus subprogramas con <F2>. Veamos como podría ser la estructura de 
un módulo: 


1.- Sección de 
declaraciones 


Como ya vimos anteriormente, cada vez que guardamos un módulo que contiene subprogramas 
QB automáticamente los declara al inicio, pero para poder utilizar estos mismos subprogramas 
en otro módulo, hay que declararlos también en este. El siguiente ejemplo muestra un modulo 
principal que utiliza al modulo anterior: 


VARIABLES ENTRE MÓDULOS 

Para poder compartir las variables entre los procedimientos de otros módulos, debemos 
utilizar la palabra COMMON ("común") antes de SHARED y luego el nombre de la(s) variable(s) 
que queremos que sean comunes; esto en todos los módulos que compartirán las variables. 


COMMON SHARED variable [AS tipo] [, variable [AS tipo]]... 


'Modulo principal common.bas 


'Modulo modtest.bas 
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La manipulación de cadenas es algo muy importante en programación, y QB nos proporciona 
muchas herramientas para modificar cadenas de una manera fácil y rápida. En QB podemos 
tener cosas como 


destinatario$ = "Sr." + nombre$ 


cosa que no podemos hacer en lenguajes como C. Veamos el siguiente ejemplo: 


También podemos tener cosas como 


IF cadena1$ < cadena2$ THEN... 


En este caso la comparación se hace mediante el valor ASCIT de cada cadena. Por citar un 
ejemplo si tenemos 


veremos que los valores ASCII de los caracteres de cada cadena son: 


¡Letra [Valor ASCII |Letra Valor ASCII 


yan É 
xk La tabla de los caracteres ASCIT viene incluida en la ayuda de QuickBASIC 4.5 y 


MS-DOS QBASIC, consultala para mayor información. 


Algo que veremos, es que podemos tener cadenas de un tamaño de caracteres definido por 
nosotros. 


Ahora veamos algunas funciones del lenguaje que nos permiten manejar cadenas de caracteres. 


TOMANDO PARTES DE CADENAS 


LEFT$(s$, n) 
Función de cadena que devuelve los n caracteres de la cadena s$ que están mas a la izquierda. 


RIGHTS$(s$, n) 
Función de cadena que devuelve los n caracteres de la cadena s$ que están mas a la derecha. 


MID$ 
Sintaxis 1 (como función): 


Devuelve una subcadena a partir de una posición determinada de una cadena. 


MID$(cadena$, inicio[ longitud]) 


- — cadenaf$ identifica a la cadena de la cual obtendremos una subcadena. 

- inicio es una expresión numérica que especifica la posición desde donde obtendremos la 
subcadena. 

- — longitud puede ser omitida si quieres que la subcadena sean todos los caracteres hacia la 
derecha de la posición inicio. 


Sustituye una subcadena por otra. 
MID$(c$, inicio[ longitud]) = cadena2$ 


-  Cc$.esuna variable String. 

- inicio es una expresión numérica que especifica la posición desde donde obtendremos la 
subcadena a substituir. 

- — longitud puede ser omitida si quieres que la subcadena sean todos los caracteres hacia la 
derecha de la posición inicio. 

-  cadena2$ es la cadena que pondremos. 


LTRIMS(c$) 
Función de cadena que le quita los espacios iniciales a c$ (si los tiene). Bien útil. 


RTRIMS(c$) 
Función de cadena que le quita los espacios finales a c$ (si los tiene). También útil. 


BUSCANDO CADENAS 


INSTR 
Busca una cadena dentro de otra. 


Sintaxis: 
INSTR([inicio,] cadena_fuente, cadena_a_buscar”) 


- inicio es una expresión desde donde se empezaría a buscar la cadena_a_buscar. 
-  cadena_fuente es la cadena donde queremos buscar a cadena_a_buscar. 
- Cadena_a_buscar es la cadena que quermos encontrar. 


CONVIRTIENDO DE MAYUSCULAS A MINUSCULAS O VICEVERSA 


UCASES$(cadena$) 
Convierte a cadena$ a mayúsculas. Muy útil. 


LCASE(cadena$) 
Convierte a cadena$ a minúsculas. 


TAMAÑO DE LAS CADENAS 


LEN(s$) 
Es una muy util función numérica que devuelve la longitud de la cadena s$. Ejemplo 


CONVERSIONES ENTRE TEXTO Y NUMEROS 


STR$(n) 


Dvuelve a n como cadena, siendo n un valor numérico. Si n es positivo se agrega un espacio al 
principio; si tiene punto decimal seguido de solo ceros, se le quitan. 


VAL(n$) 


Devuelve a n$ como número. Este función terminará de inspeccionar a la cadena al momento en 
que halle valores no-numéricos ó esta se termine. 


ASC(c$) 


Devuelve el valor ASCIT del primer caracter de una cadena. Si la cadena es nula se produce un 
error en tiempo de ejecución "Illegal function call" ("Llamado de función ilegal"). 


CHR$(n) 
Devuelve el ASCIT correspondiente a n. El valor de n debe estar entre O y 255. 


LEYENDO CARACTERES DEL TECLADO 


INKEY$ 

Es una función que lee las teclas que presionamos. Las unicas teclas que son ignoradas son las 
que significan funciones especiales para el DOS o Windows, por ejemplo Ctrl + C (termina la 
ejecución de un programa), Crtl + Alt + Sup (reinicio del sistema), etc. 


Un uso muy comun que se le da a esta funcion, es el esperar a que el usario presione una 
determinada tecla: 


"Hacer mientras que la tecla pulsada sea ninguna (""") 
DO : LOOP WHILE INKEY = "" (0) es la cadena nula 


"Hacer hasta que la tecla pulsada sea <ESC> 
DO : LOOP UNTIL INKEY = CHR$(17) "El caracter ASCIT numero 17 es <ESC> 


CADENAS DE CARACTERES IGUALES 


SPACES$(n) 
Devuelve una cadena de n espacios. 


STRING$ 
Devuelve una cadena de un mismo caracter. 


Sintaxis: 

STRING$ (n, c) 

- nesel numero de caracteres que tendra la cadena 

- Cesel numero del codigo ASCIT que corresponde al caracter que llevará la cadena. Debe 
ser un valor entero O - 255. 


STRING$(n, c$) 

- nesel numero de caracteres que tendra la cadena 

-  C$esel caracter que llevará de la cadena. Si es una cadena de más de un caracter solo se 
tomará el primero. 
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Cepitulo 7- Wero dear 


Durante este capitulo veremos las maneras en que podemos manejar información mediante 
archivos (ficheros) de datos. El saber manejar archivos es muy importante ya que nos permite 
el almacenar información y además podremos consultarla o modificarla cada vez que queramos. 
QuickBASIC nos permite crear ficheros a los cuales podremos acceder de dos maneras: 
secuencialmente ó aleatoriamente. Pero bueno, antes que todo veamos como se estructuran los 
ficheros de datos: 


Archivo (proveedores.dat) 


Registro 1 | Aceros Serreño Juan Almeida (01-157)14-25-48 14785 
Registro 2 | FIECHICZA Pedro Franco (01-157)54-58-21 5000 

Registro 3 | COFIACZA Patricio Celestino 13-20-20 20001 
Registro 4 [Química del Noroezte Ramón Carballa (01-157)85-20-17 12000 
Registro 5 | Servicios Metalúrgicoz Omar Loya 15-50-95 21543 


Como podemos ver, un registro es un conjunto de campos y por su parte un campo corresponde 
a un dato particular. La tabla anterior podría ilustrarnos un archivo de proveedores 
(proveedores.dat), en el cual tenemos una serie de registros con sus respectivos campos, 
correspondiendo el campo 1 el nombre de la compañia, el campo 2 al nombre del contacto, el 
campo 3 al teléfono, y el campo 4 al monto que le debemos a cada uno. 


Antes de nada, vamos a ver un simple ejemplo que muestra el contenido del autoexec.bat que 
se encuentra en nuestra computadora. 


El programa anterior trabaja de la siguiente manera: 
- Abrimos el archivo para leer de el (FOR INPUT) y le damos el +F1. 


- Mientras no sea el fin del archivo +f1 (EOF(1), End Of File) leemos una linea del archivo y 
guardamos su contenido en la variable linea$ (INPUT +1, linea$), para luego imprimirla en 
la pantalla. 

- — Cerramos el archivo. 


En un archivo secuencial, los datos se procesan una secuencia determinada; del ejemplo 
anterior, tenemos que primero leemos la primera linea, luego la segunda, luego la tercera, etc. 
Ahora pasemos a ver las nuevas sentencias que utilizamos: 


OPEN 
Sintaxis básica: 
OPEN archivo FOR modo AS Hnumero_de_archivo 


Donde: 
- La palabra archivo es una cadena que especifica la ubicación del archivo que queremos usar. 
- — La palabra modo indica la forma en que queremos utilizar el archivo: 
- RANDOM: El archivo se abrirá como aleatorio, es decir, para leer o escribir en una 
posición especifica. 
- INPUT: El fichero se abrirá para leer en el. 
- OUTPUT: El archivo se abré para escribir en él. 
- — APPEND: El archivo será abierto para escribir al final de este. 
- El numero_de_archivo especifica el numero que identificará al archivo dentro del 
programa. 


A Nota: Si el modo del archivo se omite, por default se accede como RANDOM. 


LINE INPUT + 
Lee una linea de texto desde un fichero. 


Sintaxis: 
INPUT Hfnumero_de_archivo, variable 


Donde: 
- Con numero_de_archivo indicamos el numero de archivo del que queremos leer. 
- — Con variable indicamos la variable en donde guardaremos la linea del archivo. 


EOF(n) 
Esta función indica cuando es el fin del archivo. 


CLOSE ¿tn 
Cierra el archivo n previamente abierto. 


En el ejemplo anterior hemos abierto un fichero sin formato, es decir, un fichero que solo 
contiene lineas de texto. Ahora veamos como manejar un archivo que contenga datos... 


'El siguiente programa crea un archivo y guarda datos en el para despues mos- 


En el ejemplo anterior nos muestra algunas cosillas: 

- Podemos dejar que el usuario introduzca el nombre y la ubicación del archivo, esto en 
tiempo de ejecución. 

- La sentencia WRITE * escribe los datos en el archivo separados por comas para 
identificar los campos, después de cada coma es un nuevo campo. 

- Para escribir en el archivo lo abrimos FOR OUTPUT y lo cerramos cuando terminamos de 
escribir. Luego, para leer de el lo volvemos a abrir pero ahora FOR INPUT y cuando 
terminamos lo cerramos. 
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hana La sentencia WRITE escribirá cada campo encerrado entre comillas dobles, lo 

cual indica que son cadenas de caracteres en forma de campos, separados por comas. 


Aunque es algo muy facil y que no merece explicación, vamos a ver como copiar archivos ... 


ACCESO ALEATORIO 


Como vimos anteriormente, en los archivos secuenciales tenemos que pasar por todos los 
registros para llegar a uno dado; por ejemplo, si queremos llegar al numero 5 necesitamos 
primero pasar por los registros del 1 al 4. En los archivos aleatorios, solamente necesitamos 
especificar la localización del registro para tener acceso a el. 


TIPOS DE DATOS DEFINIDOS POR EL USUARIO. 

Los tipos de datos definidos por el usuario nos permiten almacenar diferentes tipos de datos 
en las variables de este tipo, a diferencia de las variables sencillas que solo almacenan un tipo 
de dato. Un tipo de dato definido por el usuario se declara de la siguiente manera: 


Sintaxis: 

TYPE nombre_del_tipo 
campo AS tipo 
[campo AS tipo] 


END TYPE 


El nombre_del_tipo se usará para identificar variables con el nuevo formato. Los campos 
pueden ser de los tipos predefinidos (STRING, INTEGER, DOUBLE...) o de otros tipos 
definidos por el usuario, pero declarados antes. Veamos el siguiente ejemplo: 


En la practica datos como la matricula no es necesario que declaren como numero ya que no 
realizaremos operaciones con ella, solo la incluí a manera de ejemplo. Como se ve del ejemplo 
anterior, declaramos una variable llamada alumno, del tipo de usuario registro. Para acceder a 
los campos de la variable debemos de poner el nombre de la variable seguido de un punto y el 
nombre del campo al que queremos acceder. Ahora, vemos que los campos son de tipos diversos 
como INTEGER, STRING, LONG, etc. támbien los campos pueden ser de tipos definidos por 
nosotros; si es así, el tipo que va dentro del campo debe ser declarado antes... 


Como vemos, el operador punto se asocia de izquierda a derecha, por ejemplo en 
alumno.calificaciones.primerparcial el compilador primero asocia el campo primerparcial con 
calificaciones, y luego calificaciones con alumno. Confío en que el ejemplo se explique por si 
solo. Como cualquier tipo de dato, podemos tambien tener arreglos de tipos de datos definidos 
por el usuario, por ejemplo, si tenemos algo como: 


TYPE registro 
nombre AS STRING * 30  'El nombre debe caber en 40 caracteres 
matricula AS LONG 'La matricula como entero largo 
semestre AS INTEGER 'El grupo sera un entero 
grupo AS STRING * 1 'El grupo se identifica con un caracter 
carrera AS STRING* 3  'La carrera con 3 letras (LAE, ISC, IMM, etc) 
END TYPE 


DIM GrupoA(1 TO 30) AS registro 'Declaramos un arreglo de tipo registro 


y queremos cambiar la matricula del alumno que se encuentra en la posición 4 del arreglo, 
accederemos este dato poniendo 


GrupoA(4).matricula = 150424 'Le damos el valor de 150424 


ARCHIVOS DE ACCESO ALEATORIO 
Para abrir un archivo para acceso aleatorio usamos: 


Sintaxis basica: 

OPEN nombre_del_archivo FOR RANDOM [ACCESS acceso] [LEN = longregistro] 

Donde 

- RANDOM especifica que es de acceso aleatorio, y la clausula opcional ACCESS nos permite 
especificar si queremos abrirlo para lectura (READ), escritura (WRITE) o ambos (READ 
WRITE). 

-  Sise omite la clausula ACCESS, se producen 3 intentos para su acceso: 
1) Se intenta acceder para escribir y leer (READ WRITE) 
2) Se intenta acceder para escribir solamente (WRITE) 
3) Se intenta acceder para leer solamente (READ) 


Si los 3 intentos fallan se produce un error en tiempo de ejecución. 

La clausula LEN = longregistro nos permite especificar el tamaño de los registros y 
tambien el formato que tendrá el fichero, longregistro especifica el numero de bytes que 
le concederemos a cada registro. 


Veamos el siguiente ejemplo: 


Del ejemplo anterior podemos comentar muchas cosas: 

- — Abrimos el archivo de acceso aleatorio y le damos un "formato". A cada registro le damos 
la longitud en bytes de la variable alumno y cada campo del archivo coincidirá con los 
campos de la variable. La función LEN nos devuelve el tamaño en bytes que ocupa una 
variable. 

- La sentencia PUT +f nos permite "vaciar" el contenido de una variable en un registro del 
archivo. 


Sintaxis: 
PUT Fnumero_de_archivo[[, numero_de_registro][, variable]] 

- La sentencia GET + nos permite "tomar" el contenido de un registro del archivo y 
guardarlo en una variable. 


Sintaxis: 
GET Fnumero_de_archivo[[, numero_de_registro][, variable]] 


- El objetivo principal del ejemplo es mostrar que para tomar un registro no necesitamos 
procesar todos los registros, simplemente indicamos que numero de registro deseamos y 
GET lo tomará y lo guardará. 

- La sentencia KILL borra un archivo del disco duro. Ojo... 


Ya visto como se manejan basicamente los archivos, veamos algunas funciones y sentencias que 
son muy utilies en la manipulación de estos. 


LOF(n) 

Esta función retorna la longitud en bytes de el archivo numero n. Esta función es 
especialmente util, por ejemplo cuando queremos saber el numero de registros que tiene un 
archivo de acceso aleatorio con formato. 


LOC(n) 
Proporciona la posición del puntero en un archivo, es decir la linea o el registro en que se 
encuentra en ese momento. 


EOF(n) 
Esta función indica cuando es el fin del archivo n. 


KILL 
Esta sentencia borra un archivo del disco duro (o dispositivo). 


Sintaxis: 
KILL nombrearchivo 


nombrearchivo puede incluir ruta y extensión. 


RMDIR 
Esta orden remueve un directorio del disco duro (o dispositivo), es equivalente al comado RD 
de DOS. El directorio debe de estar vacio o se produce un mensaje de error. 


Sintaxis: 
RMDDIR nombredirectorio 


nombrdirectorio puede incluir ruta, p.e RMDIR "c:YwindowsYsystem" 


MKDDIR 

Esta orden crea un nuevo directorio en disco, es equivalente al comado MD de DOS. 
Sintaxis: 

RMDDIR nombredirectorio 


nombredirectorio puede incluir ruta, p.e RMDIR *c:1qb45MqbfilesYmodulos" 


CHDIR 

Esta orden cambia del directorio actual a un nuevo directorio, es equivalente al comado CD de 
DOS. 

Sintaxis: 

CHDIR nombredirectorio 


nombredirectorio puede incluir ruta, p.e CHDIR *c:Y" 'Nos vamos al directorio raiz de C: 


NAME 

Cambia el nombre de un directorio o de un archivo grabado en un disco. 
Sintaxis: 

NAME viejonombre AS nuevonombre 


viejonombre y nuevonombre pueden contener una ruta. 


LOCATE 
Posiciona el cursor para escribir en una cordenada de la pantalla. 


Sintaxis basica: 
LOCATE fila, columna 


LPRINT 
Lo mismo que PRINT, salvo que la información será mandada a una impresora en vez de al 
monitor. 


ek Nota: El equivalente en caracter al ASCIT 4412 es el salto de pagina, por lo que LPRINT 


CHR$(12) obligará a la impresorá a saltar a la siguiente hoja. El ASCIT +113 es «ENTER» y el 
H27 <ESC> 
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Capítulo E Crátiicos Y sonielos 
En este capítulo vamos a ver las distintas posibilidades gráficas que QuickBASIC nos permite, 
además de algunas instrucciones para emitir sonidos. La utilización de gráficos y sonidos en 


nuestros programas nos permite crear un ambiente mejor para quien vaya a tener que usar 
nuestros programas. Antes de trabajar con gráficos, vamos a ver algunas cosas útiles: 


Hasta ahora solo hemos trabajado la pantalla en modo texto, es decir, escribiendo caracteres 
en ella. Ahora, por ejemplo, imaginemos que una maestra de estadística quiere entretenernos 
en lo que ella toma su café y nos pide que le mostremos en la computadora los resultados 
acerca una encuesta relativa a las edades de los alumnos del III semestre de la carrera de 
Ingeniería Geológica. Lo más sencillo sería hacer un programa que procese los datos y muestre 
lo siguiente: 


muestra = población = 35 alumnos 


| Edad | Alumnos | 
| 18 - 20 | 15 | 
| 21 - 23 | 19 | 
| 24 - 26 | 1 | 


media = 21.22, moda = 22, mediana = 22.5 


Al ver lo que hemos hecho, la maestra nos pide ahora que le mostremos los resultados en un 
gráfico de barras. O.K, entonces le podríamos mostrar algo como esto: 


Muestra: 35 alumnos 


19 
HHHHA 
HHRRHR 
HHHHA 
15 HRRR 
HHHHA HAHAHA 
HHRR HHHHA 
HHHHA HHHHA 
HHHHA HRRR 
HHHHA HHHHA 
HHHHA HHHHA 
HHHHA HHHHA 
HHHHA HHHHA 1 
HHHHA HHHHA HHHHA 
18-20 21-23 24-26 


media = 21.22, moda = 22 mediana = 22.5 


Esto esta bien, se vale usar caracteres para crear las barras. Pero... ¿no sería mejor si le 
mostramos algo como lo siguiente? 


Tal vez quedaría mas contenta. 


Cuando trabajamos en modo texto, solo podemos presentar caracteres y símbolos en la 
pantalla; pero cuando trabajamos en modo gráfico, podemos acceder a cada uno de los puntos 
de la pantalla, llamados pixeles (picture elements, elementos de imagen). La combinación de 
varios pixeles nos permite crear formas y dibujos complejos. 


A Nota: Cabe recordar que, ya que los caracteres mismos estan formados por pixeles, 
dentro de un modo gráfico podemos trabajar con texto y además manejar formas gráficas, 
todo al mismo tiempo. 


Otro concepto importante, además de pixel, es el de resolución. La resolución de la pantalla 
para mostrar gráficos esta dada por el número de pixeles que pueden mostrarse 
horizontalmente y verticalmente al mismo tiempo. Por ejemplo, podemos tener resoluciones de 
320 x 200 pixeles, 640 x 200, 640 x 480, etc.: lógicamente que entre mayor sea la resolución, 
más pequeños serán los pixeles y por tanto la imagen será mas fina.. 


Algunos de los estándares de tarjetas gráficas son: 


La IBM Monochrome Display and Printer Adapter (MDPA): 
Permite el uso de un monitor monocromo para texto de 80 (columnas) x 25 (renglones) 


La IBM Color Graphics Adapter (CGA): 
Texto: 80x25 y 40x25 , con 16 colores 
Gráficos: 320x200 en 4 colores, 640x200 en b/n. 


La IBM Enhanced Graphics Adapter (EGA): 
Compatible con CGA, pero incluye los modos gráficos: 
- 320x200, 640x200 y 640x350 en 16 colores. 


La IBM Multicolor Graphics Array (MCGA): 
Además de emular la EGA, nos da también: 
- 320x200 en 256 colores y 640x480 monocromo. 


La IBM Video Graphics Array (VGA): 
Además de incluir la MCGA, nos da: 
- 640x480 en 16 colores. 


La IBM Super Video Graphics Array (SVGA): 

Igual que VGA, y puede incluir uno o más de los siguientes modos (dependiendo de quien las 

haga): 

- 256 colores en 640x480, 800x600, 1024x768, 1280x1024... y hasta 32000, 64000 o 16 
millones de colores. 

- — La llamada VESA, es un estándar para que todas sean lo mas parecido posible. 


Hercules Graphics Card: 


Texto: Igual que MDPA en texto. 
Gráficos: 720x350 blanco y negro (b/n). 


Podemos seleccionar el modo (combinación de resolución y colores) en que queremos trabajar 
mediante la sentencia SCREEN. 


Sintaxis básica: 
SCREEN modo 


- Donde modo es un entero de O - 13 que especifica el modo en que queremos utilizar la 
pantalla para gráficos. 


A Nota: SCREEN O se refiere al modo de solo texto. 


Para una información más detallada de la sentencia SCREEN consulta la ayuda de QB. Por 
cuestiones de compatibilidad solo me centrare en el uso de SCREEN 1 y 2, que es el que se usa 
para una tarjeta CGA, la mas básica para usar gráficos. Lógicamente que una tarjeta mas 
potente es compatible con CGA. 


Si se selecciona SCREEN 1, tendremos un modo de pantalla de 320x200 pixeles con 16 colores 
de fondo y dos paletas con 3 colores c/u. Si se selecciona SCREEN 2, tendremos una resolución 
de 640x200 pixeles en fondo negro y formas blancas. 


O.K., empecemos a trabajar con SCREEN 1. Como ya se mencionó, podemos tener una resolución 
de 320x200 y los colores de fondo y la paleta se especifican mediante la sentencia COLOR. En 
modo gráfico, la funcion COLOR funciona diferente a como lo hace en modo texto. En este caso 
COLOR tendrá 2 parametros: COLOR fondo, paleta; donde fondo es un entero de O - 15 que 
utilizaremos para especificar el color del fondo de la pantalla. Luego, paleta es un numero 0-1 
que especifica 3 colores (además del color de de fondo) de que podemos disponer al momento 
de dibujar nuestras formas. Los colores dentro de cada paleta son los siguientes: 


| Paleta O | Paleta 1 


LO | Color de fondo 
EU 


jo |Colordefondo | 
2 [Rojo (2 Magenta | 
Marrón 


1 


El color de fondo corresponde a: 


Para que quede mas claro, veamos el siguiente ejemplo: 


En el programa anterior podemos observar el uso de la sentencia LINE, la cual nos permite 
dibujar líneas y rectángulos. 


Sintaxis básica: 

LINE (x1, y1) - (x2, y2)L, color][, B[F]] 

Las coordenadas (x1, y1) especifican la posición desde donde saldrá nuestra línea, mientras 
que (x2,y2) las coordenadas donde terminará. 

- El parametro opcional color es el numero que especifica el color de la línea. El valor de este 
parámetro se interpretará como uno de los colores de la paleta activa. Si se omite, se 
seleccionará de forma automática el color numero 3 de la paleta. 

- El parámetro opcional B ("Box") hace que en vez de una línea, se dibuje un contorno 
rectangular cuya esquina superior izquierda estará en (x1, y1) y la esquina inferior derecha 
en el punto (x2, y2). 

- El parámetro opcional F ("Fill") después de B, hace que se dibuje un rectángulo sólido. El 
color del rectángulo esta definido por el parámetro color. 


Veamos el siguiente ejemplo: 


Ahora veamos otra sentencia importante: PSET. La sentencia PSET no hace otra cosa sino 
dibujar un pixel en las coordenadas que le indiquemos y del color que le indiquemos. Los colores 
están en función de la paleta actual. 


Sintaxis: 

PSET (x, y) [, color] 

- Las coordenadas x, y especifican la posición donde se dibujara el pixel. 

- El parámetro opcional color es se interpretará como uno de los colores de la paleta activa. 
Si se omite, entonces se seleccionara de forma automática el color numero 3 de la paleta. 


Otra sentencia importante es PRESET. Esta sentencia funciona de manera idéntica a PSET, 
salvo que si el color se omite, se seleccionará de forma automática el color de fondo. En 


algunos programas puede resultar útil usar PSET para generar puntos y PRESET para 
borrarlos. Veamos el siguiente ejemplo: 


CIRCLE 


La sentencia CIRCLE nos permite dibujar un circulo en la pantalla. 


Sintaxis básica: 

CIRCLE (x, y), radio [,color] 

- Las coordenadas x, y indican el origen del circulo. 

- El parámetro radio es el valor que tendrá el radio del circulo (en pixeles) 

- El parámetro opcional color indica el color del perimetro de la circunferencia. 


Veamos el siguiente ejemplo: 


Otro ejemplo: 


PAINT 


La sentencia PAINT nos permite rellenar. 


Sintaxis Básica: 

PAINT (x.y), color, color_de _borde 

- Las coordenadas (x,y) se refieren al punto desde donde se empezará a expandir el relleno. 
Ojo que este punto debe de estar DENTRO de la forma que queremos rellenar. 

- El parámetro color es un numero que especifica el color con el que queremos rellenar la 
forma. Debe de estar en función de la paleta activa. 

- El color_de_borde es el numero del color del borde que queremos que detenga el proceso 
de relleno. Debe de estar en función de la paleta activa. 


Veamos el siguiente ejemplillo para que quede mas claro: 


Veamos ahora otro ejemplo: 


Ahora analicemos dos de las sentencias mas importantes en el manejo de gráficos y 
animaciones: GET y PUT. La primera, GET, nos permite almacenar una imagen dentro de un 
arreglo numérico. La segunda, PUT, nos permite vaciar una imagen almacenada en un arreglo 
numérico. 


Sintaxis Básica: 

GET (x1, y1) - (x2, y2), arreglo 

- Como en realidad lo que se almacenará será un área rectangular de la pantalla, las 
coordenadas (x1, y1) y (x2, y2) corresponden a las esquinas superior izquierda e inferior 
derecha del rectángulo que contendrá la imagen que queremos guardar. 

- El parámetro arreglo se refiere al nombre del arreglo numérico donde se guardará la 
imagen. Es preferible que sea entero, por eso de la rapidez de los cálculos y para evitar 
errores cuando se ejecute el programa (error en tiempo de ejecución, run-time error). 


Una pregunta que casi creo que muchos se estan haciendo es: ¿De que tamaño tiene que ser el 
arreglo para que guarde la imagen correctamente? Y la respuesta es: el tamaño exacto en 
bytes que necesita el arreglo para almacenar la imagen completa esta dado por la siguiente 
fórmula: 


4 + INT(((x2 - x1+ 1) * (bits_por_pixel_por_plano) + 7)/8) * planos * ((y2 - y1) + 1) 


Algo complicada, ¿no? Los bits_por_pixel_por_plano y los planos estan dependen del modo en 
que usemos SCREEN. La siguiente tabla muestra los bits por pixel por plano y los planos para 
cada modo de pantalla: 


Valores para bits por pixel por plano y para planos 
Modo de SCREEN Bits por pixel 


2 Si hay 64k de memoria EGA 
4 Si hay > 64k de memoria EGA 
2 


2 
1 
1 
1 
1 
1 
1 
1 
1 
8 


1 
4 
1 


Como ya sabemos, un entero corto ocupa 2 bytes, un entero largo 4 bytes, un real simple 4 
bytes, y uno de doble precisión 8 bytes. Así, por ejemplo, un arreglo de 3 enteros largos 
ocupará 12 bytes. 


Por ejemplo, supongamos que queremos usar GET para guardar una imagen hecha usando 
SCREEN 2. Si las coordenadas de la esquina superior izquierda de la imagen son (0,0), y las 


coordenadas de la esquina inferior derecha son (32,32), entonces el tamaño exacto, en bytes, 
del arreglo es 


4 + INT((S3 * 1+7)/8) * 1 * (33) 


O 169. Esto quiere decir que un arreglo con 85 elementos INTEGER quedaría más que perfecto 
para guardar la imagen. Lo anterior es para quien desee obtener un tamaño exacto, yo 
personalmente prefiero aproximar el arreglo; cuando el arreglo no alcanza a almacenar la 
imagen se produce un error Illegal Function Call. (Llamada de función inválido). Ahora sigamos 
con PUT: 


PUT (x, y), arreglo 

- La coordenada (x, y) corresponde al punto donde irá la esquina superior izquierda del 
rectángulo que contendrá a la imagen que vamos a poner. 

- El parámetro arreglo se refiere al nombre del arreglo numérico donde se guardó 
previamente la imagen. 


Un ejemplo: 


Por último veamos otro ejemplo: 


IEW Y WINDOW 


La sentencia VIEW define una nueva pantalla para la visualización de gráficos (puerto 
visualizador de gráficos). 


Sintaxis Básica: 
VIEW [SCREENI[(x1, y1) - (x2, y2)L[color][ borde] 


- Si la sentencia VIEW aparece sin argumentos, toda la pantalla actuará como puerto 
visualizador, que es lo normal. 

- Las coordenadas (x1, y1) y (x2, y2) corresponden a las esquinas superior izquierda e 
inferior derecha del área rectangular que definirá el nuevo puerto visualizador de gráficos. 
Fuera de esta área NO se podrán visualizar gráficos. 

- Los parámetros opcionales color y borde se refieren al color de relleno del puerto 
visualizador y al color del borde respectivamente. 

- El modificador SCREEN se usa para indicar que la sentencia VIEW actuará en función de 
toda la pantalla, y no en función de otras sentencias VIEW si las hubiera. 


Veamos un ejemplo: 


Ahora veamos el ejemplo anterior, pero usando el modificador SCREEN: 


La sentencia WINDOW, crea un nuevo sistema de coordenadas. 


WINDOW [[SCREEN][(x1, y1) - (x2, y2)] 

- Si la sentencia WINDOW aparece sin argumentos, el sistema de coordenadas será el 
mismo que usa la pantalla por defecto, de acuerdo a la sentencia SCREEN 

- Los puntos (x1, y1) y (x2, y2) definirán el límite inferior y el límite superior del nuevo 
sistema de coordenadas. El sistema de coordenadas irá de negativo a positivo a partir de la 
esquina inferior izquierda de la pantalla. 

- El parámetro opcional SCREEN invierte la dirección normal de los puntos del eje "y". 


Para que quede más conciso, veamos el siguiente ejemplo: 


La sentencia WINDOW tiene la ventaja de que nos permite crear sistemas de coordenadas en 
el que podamos manejar localizaciones y decimales, por ejemplo: (-2, 4.6), (-150, 
), (120.1,-15), etc. Veamos... 


Por último veamos como combinar WINDOW y VIEW: 


IEW PRINT 


Esta sentencia define una nueva área para la visualización de texto (puerto de visualización de 
texto). 


Sintaxis: 
VIEW PRINT [renglonsuperior, rengloninferior] 


- El parámetro opcional renglonsuperior, indica el número del renglón desde donde se 
empezará a ver el texto. 

- El parámetro opcional rengloninferior, indica el número del renglón hasta donde se verá el 
texto. 


A ver el siguiente ejemplillo..... 


O. K, ahora watchemos otro ejemplillo en el que definimos un puerto para gráficos y otro para 
texto... 


71 
Lo CLS O borra toda la pantalla (gráficos y texto), CLS 1 borra únicamente el puerto 


de visualización de gráficos y CLS 2 borra únicamente el puerto de visualización de texto. 


DRAW 


La sentencia DRAW nos permite dibujar algo conforme a los parámetros que le demos. 


Sintaxis Basica: 
DRAW cadena_de_comandos 


Antes de cualquier cosa, veamos el siguiente ejemplo: 


Lo que significan los comandos de la cadena es lo siguiente: 

c2 (Usaremos el color 2 de la paleta actual), bm100,120 (ir a la posición 100, 200 de la 
pantalla), d50 (dibuja 50 pixeles hacia abajo), r50 (50 pixeles hacia la derecha), u50 (50 
pixeles hacia arriba), f20 (20 pixeles hacia abajo derecha). Ahora vamos a ver una lista con 
varios comandos: 


- Cn: Color n, indica que se va a utilizar el color n. 

- — Dn: Down n, dibuja n pixeles hacia abajo. 

- Un: Up n, dibuja n pixeles hacia arriba. 

- Ln: Left n, dibuja n pixeles a la izquierda. 

- —Rn: Right n, dibuja n pixeles a la derecha. 

- En: Dibuja n pixeles en diagonal hacia arriba derecha. 

- — Fn: Dibuja n pixeles en diagonal hacia abajo derecha. 

- Gn: Dibuja n pixeles abajo izquierda. 

- —Hn: Dibuja n pixeles arriba izquierda. 

- Mxy: Move x,y , se mueve al punto xy dibujando pixeles (traza una línea desde donde este 
al punto x,y). 

- BM x.y: se mueve al punto x.y sin visualizar. 

- Ax: Gira una figura hecha con DRAW, si x=1 entonces la gira 90%, x=2 entonces 180, x=3 
entonces 270". 


Creo, pues, que con esto es suficiente en cuanto a gráficos; con el uso de las sentencias ya 
vistas, puedes crear una gran variedad de programas según se te ocurra. Ahora pasemos a ver 
dos funciones que nos permiten emitir sonidos por la bocina interna del ordenador, estas son 
BEEP y SOUND. 


Esta sentencia emite un "beep" por la bocina interna de la computadora. 
Emite un sonido de una frecuencia y una duración determinada por la bocina interna del 


ordenador. 


Sintaxis: 
SOUND frecuencia, duración 


- El parametro frecuencia es un entero entre 37 y 32767 que indica la frecuencia (en hertz) 
del sonido. 

- El parámetro duración es un entero de O a 65 353 que indica la duración (en ciclos de reloj) 
que tendrá el sonido. Un segundo es igual a 18.2 ciclos de reloj. 
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Para empezar, podemos decir que la POO es una extensión natural de la programación 
estructurada en la que los procedimientos y datos se juntan para formar objetos, los cuales se 
comunican entre sí mediante mensajes, para solucionar problemas. 


Al parecer, la forma en que trabaja la POO esta basada en objetos, clases, métodos y 
mensajes. 


OBJETOS: 
Los datos (propiedades) y procedimientos (métodos) están dentro del mismo objeto. 


¿Como es esto?. Facil. Por ejemplo, si quisieramos programar un carro en programación 
estructurada deberiamos crear procedimientos como AumentarVelocidad, DisminuirVelocidad, 
ConsumirGasolina... pero esto no basta. ¿Por qué?. Sencillamente porque tambien necesitamos 
datos como el color, numero de puertas, placas, etc... Lo que podriamos hacer, sería crear los 
procedimientos, y declarar variables para almacenar estos datos... pero esto tampoco bastaría. 
No podemos SEPARAR el número de puertas de su color, ni de sus placas (propiedades), como 
tampoco de la manera en que consume la gasolina o de la razon de su aumento de velocidad 
(métodos). Todo esto en CONJUNTO forman el carro (objeto). 


CLASES: 


Una clase es una colección de objetos del mismo tipo. Todos los objetos de una clase tienen los 
mismos metodos, aunque puede variar el valor de sus propiedades. Por ejemplo, siguiendo con el 
ejemplo anterior, podemos tener una clase que se llame vehiculos de motor, y dentro de ella 
varios objetos del mismo tipo, como un Jeep, una Pick Up, un trailer, una Limosina, un Jetta, 
etc... todos ellos varían en cuanto a sus propiedades (color, forma, etc.), pero todos tienen los 
mismos métodos (consumen gasolina, aumentan su velocidad, disminuyen su velocidad, etc.). 


MENSAJES: 


Cuando se ejecuta un programa orientado a objetos, los objetos reciben, interpretan y 
responden a mensajes de otros objetos. Si a un objeto se le manda un mensaje, este responde 
ejecutando un método asociado. Por ejemplo, si al carro se le pisa el acelerador (mensaje), este 
responderá con el método AumentarVelocidad (método); si se le pisa el freno (mensaje), el 
carro respondería con el método DisminuirVelocidad. 


METODOS: 


Como ya se mencionó, un método se implementa en una clase de objetos y determina como debe 
actuar el objeto cuando recibe un mensaje. Un método tambien puede mandar un mensaje a 
otros objetos solicitando una acción o una información. 


Al parecer, las caracteristicas principales de la POO son abstracción, encapsulación, herencia y 
polimorfismo. 


ABSTRACCIÓN: 


Al parecer, mediante la abstracción conseguimos no detenernos en los detalles concretos de 
las cosas, sino generalizar y centrarse en los aspectos que permitan tener una visión global. Al 
parecer, una clase es una abstracción, porque los objetos dentro de ella la pueden representar 
de una manera general. 


ENCAPSULAMIENTO: 


Al parecer, la encapsulación permite manejar los objetos como unidades básicas, 
permaneciendo oculta su estructura. 


HERENCIA: 


Al parecer, la herencia es el mecanismo para compartir automáticamente métodos entre 
objetos, y crear nuevos objetos a partir de los ya existentes. 


POLIMORFISMO: 

Al parecer, esta caracteristica permite implementar múltiples formas para un mismo método, 
dependiendo de la clase sobre la que se realice la implementación. Por ejemplo, podemos 
aumentar la velocidad de un coche o de una bicicleta, o abrir una lata o una bolsa, etc. 


Visual Basic combina la potencia de los objetos con la sencillez del lenguaje BASIC. Al parecer, 
Visual Basic soporta la abstracción, el encapsulamiento y el polimorfismo. 


Visual Basic para Windows, nos permite crear aplicaciones para el sistema operativo Microsoft 
Windows. 


Para empezar a programar con Visual Basic para Windows, es necesario tener instalada alguna 
version de Visual Basic para Windows, preferiblemente mayor o igual a la 3.0. 


Ahora vamos a dar un paseo por el entorno integrado de desarrollo (IDE, Integrated 
Development Enviroment) de VB. 


xk Nota: El aspecto del IDE puede variar de acuerdo a la version de Visual Basic. El aspecto 
de la imagen corresponde a la versión 5.0, que es en la que me basaré. 
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Los principales elementos que conforman el IDE de VB son: 


1) 
2) 


3) 
4) 
5) 


6) 


7) 


La barra de menus, en la que encontramos varios menus. 

La barra de comandos, con varios accesos directos a los comandos mas usados como 
rehacer, deshacer, guardar, compilar, agregar... 

El cuadro de herramientas, en la que estan los diferentes objetos que podemos dibujar en 
el. 

El Formulario, el cual es la base de cualquier proyecto de VB. El formulario es un objeto 
que contendrá, a su vez, objetos del cuadro de herramientas. 

El Explorador de proyectos, el cual nos permite ver los diversos elementos de que consta 
el proyecto. 

La Ventana de propiedades, nos permite asignar valores a las propiedades de los objetos 
que esten seleccionados. Ademas nos muestra la clase a la que pertenece el objeto 
seleccionado (Forml pertenece a la clase Form), y una breve descripción acerca de la 
propiedad seleccionada. 

Ventana Posición del Formulario, el cual nos permite manejar la colocación que queramos 
que tengan los formularios en la pantalla al momento de correr el proyecto. 


Vamos a crear un ejemplo sencillo: un programa que diga "Bienvenido a Visual Basic". 


Para empezar iniciemos Visual Basic. Al iniciar, deberá aparecer una ventana como la siguiente: 


Seleccionemos EXE estándar y demos <ENTER>. A continuación nos deberá aparecer la ventana 
del IDE con un formulario en el que empezaremos a trabajar. Ahora, demos doble clic sobre el 
componente TextBox (Caja de texto) del cuadro de herramientas. 


Deberá aparecer sobre nuestro formulario el control seleccionado, mas o menos de esta 
manera: 


Podemos modificar su posición con el ratón. Si lo seleccionamos deberán aparecer unos 
cuadritos alrededor de el, de donde lo podemos estirar o encoger. 


Ahora coloquemos un CommandButton (Boton de comando) de la misma forma. HEN 


Puedes acomodar los controles para que queden como quieras, así como cambiar el tamaño del 
formulario y su posición cuando se ejecute el proyecto. Podría quedar algo mas o menos como 
esto: 


mm. Form? 


Ahora vamos a programar. Los botones, como objetos, tienen varias propiedades, una de ellas 
es el texto que contienen, en este caso la propiedad que lo establece se llama Caption. Vamos a 
cambiarla seleccionando el botón, y en la ventana de propiedades la buscamos y la cambiamos 
para que en vez de Commandl diga Saludar. 


Ahora el formulario se verá mas o menos así: 


mm. Form? 


[A 


Ahora cambiemos las propiedades de los otros objetos de la siguiente forma: 


Objeto Form CommandButton TextBox 


Propiedades |Name: frmSaludo Name: cmdSaludar Name: txtMensaje 
(Nombre con el que será (Nombre con el que (Nombre con el que 
identificado dentro del será identificado será identificado 


programa) dentro del programa) dentro del programa) 
Caption: Programa saludo Caption: Saludar Text = (nada) 

(Es el titulo que tendra el (Es el texto que tendrá (Es el texto que 
formulario cuando sea el boton) contendrá la caja) 
ejecutado) 


Aquí hay algo interesante que podemos analizar. Si nos fijamos, el nombre de los objetos 
consta de un prefijo de tres letras, mas un nombre cualquiera que nos dé una idea de para que 
se va a usar ese objeto. El prefijo de los nombres, nos da la idea de que tipo de objeto es, por 
ejemplo el nombre del formulario tiene el prefijo frm, que nos indica que es un formulario; el 
nombre del boton de comando tiene el prefijo cmd, que nos da a entender que el objeto es un 
boton de comando, etc. Así existen varios prefijos para los diferentes objetos como pct (para 
un PictureBox o caja de imagen), Ibl (para una etiqueta o Label), etc. Esta notación permite 
tener un mayor grado de control sobre los objetos. De todas formas cada quien puede usar la 
notación que quiera. 


O.K, ya con los cambios anteriores, el formulario debería quedar más o menos así 


=. Programa saludo 


Empezaremos por decirle a cmdSaludar (objeto) como va a reaccionar con el evento click. Para 
eso, demos doble clic en el boton. Nos aparecerá la siguiente pantalla: 


Private Sub cmdSaludar Click[) [ 


End Sub 


Estamos dentro de una SUB como en QuickBASIC, pero ¿que es eso de Private?. Esta palabra 
quiere decirnos que ese método solo es exclusivo de ese formulario y no puede usarse fuera de 
el. Ahora si analizamos el nombre del método, encontraremos que se llama cmdSaludar_Click(). 
Dentro del cuerpo del método iran las instrucciones que le díran al objeto cmdSaludar como 
reaccionar al evento Click. O sea el formato es Objeto_Evento. Si desplazas la lista de 
eventos, podras ver todos lo eventos que pueden aplicarse a ese objeto. 


Pasemos a escribir las siguientes intrucciones: 


Private Sub cmdSaludar Click() 
txtMelnsaje. Text = "Bienvenido a Visual Basic" 
crdSaludar .Caption = "Saludar" 

End Sub 


Ahora, vamos a analizar las intrucciones que escribimos en el cuerpo del método. 

1) La primera intrucción, accederá a la propiedad Text del objeto txtMensaje y le da la 
cadena "Bienvenido a Visual Basic" 

2) Las segunda intrucción le dará a la propiedad Caption del objeto cmdSaludar la cadena 
"Saludar”. 


Ahora sigamos con la caja de texto. Para ver de nuevo el formulario y los objetos, 
seleccionamos en el menú Ver el comando Objeto, y de nuevo aparecerá el formulario. Demos 
doble clic en la caja de texto. Aparecerá lo siguiente: 


Private Sub txtMensaje Change () 


End Sub 


Aquí el evento Change se refiere al efecto de modificar el texto de la caja, como borrarlo, 
agregar otro texto o espacios, etc. La instruccion que se ejecutará cuando suceda este evento 
deberá ser... 


Que significa que la propiedad Caption del objeto cmdSaludar tendrá la cadena "Restaurar 


"”n 


msg”. 


En resumen lo que deberá hacer el programa es: 

- Al presionar el boton deberá aparecer el mensaje "Bienvenido a Visual Basic" en la caja de 
texto. 

- Si modificamos el contenido de la caja de texto, el boton dirá "Restaurar msg”. 

- Si volvemos a presionar el boton, el texto de la caja volverá a mostrar el saludo y el boton 
tendrá el texto "Saludar” 


Ahora vamos a probarlo, dando clic en el botón Tniciar ( 5 ) de la barra de comandos. 


5. Programa saludo (2 Na] ES 


Bienvenido a Visual Basic 


Ahora si quieres crear el ejecutable, primero tienes que guardar el proyecto con un nombre 
(por ejemplo, Saludo) y luego seleccionar Generar Saludo. Exe del menú Archivo. 


Espero que haya quedado entendido como se manejan los objetos, clases, métodos, eventos y 
mensajes. Por mi parte es todo y espero que este curso les haya sido útil. Actualmente puedes 
encontrar cursos de varios temas relativos a la programación de computadoras en 


lawebdelprogramador.com. 
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